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ABSTRACT 


This project gives the user of the HP-41 handheld pro- 
grammable calculator a series of programs that give accepta- 
ble results during the preliminary phases of the helicopter 
design process. The project consists of three parts. 

The first part consists of several short programs and 
their subroutine form. These programs and subroutines com- 
eee density altitude, density, disc area, solidity, tip 
velocity, induced velocity, coefficient of thrust, tip loss 
PaGeOr, equivalent chord, and ground effect. 

The second part consists of major subroutines. These 
Subroutines compute profile power, induced power, climb 
power, parasite power, and total power; equivalent area and 
induced power for a tandem rotor; and data input and change. 

The third part consists of the main programs. These 
programs compute the various power requirements for hovering 
Eeeaime, LOrward (straight and level) flight, vertical flight, 
and forward climbing flight; also tailrotor power, autorota- 


meee tilight, and tandem rotor flight. 
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iPlLNLRODUCTION 


A. BACKGROUND 

This project was undertaken to give the user of the HP-41 
Programmable Calculator a series of programs that would give 
acceptable results during the preliminary phases of the heli- 
copter design process. The HP-41 is a handheld programmable 
calculator designed and manufactured by the Hewlett-Packard 
Company of Corvallis, Oregon. This personal computing system 
easily fits into a coat pocket, thus being able to go any- 
where. This, in turn, gives the preliminary design engineer 
a computational versatility and flexibility not previously 
experienced. To date, no known project of this magnitude has 


been attempted with a handheld calculator. 


B. GOALS 

The single goal of this project was to construct a series 
of self-prompting, alpha-numeric programs that could be used 
with acceptable results during the preliminary helicopter 
design process. In doing this, this project supplements the 
theory and computational processes as outlined by Professor 
Donald M. Layton in Aircraft Performance [{Ref. 1]. An addi- 
tional projected end use was for utilization by the Aeronau- 
tical Engineering students of the Naval Postgraduate School 
enrolled in the Helicopter Performance and Helicopter Design 


S@urses. 





fit RhOnGh LO THe PROBLEM 


The basic line of approach used in this project was to 
eGenstruct calculator programs consisting mainly of subrou- 
tines. The subroutine is the key ingredient of this effort 
for the following reasons: | 

1. The use of subroutines greatly reduces the amount of 
required calculator program memory. Numerous main programs 
utilize the same basic equations and computational techniques 
even though the end results will be different. When these 
processes are organized into subroutine format, the numerous 
main programs can call and execute these common subroutines 
repeatedly, until the desired outputs are calculated for the 
Mameicular flight conditions. For example, program "“FORFLT" 
and program "VERFLT" are different in that program "FORFLT" 
will calculate the power requirements for forward (straight 
and level) flight while program "VERFLT" will calculate the 
power requirements for vertical flight. The results will be 
different, yet both main programs will call and execute fif- 
teen identical subroutines where computational techniques 
are the same for both programs. The end result being that 
program memory, 1.e. the number of calculator registers re- 
quired, is optimized. 

2. The use of subroutines greatly enhances the ease of 


program editing. Each individual subroutine calculates a 
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Bupele specific function or variable, i.e. rotor disc area, 
Mmemor solidity, ground effect, density of the air, etc. Per- 
haps the user of these programs does not agree with the 
theory used for calculating ground effect or perhaps the 

user knows of a shorter technique that will greatly reduce 
the required amount of program memory for storage of the sub- 
routine. The user need only edit that particular subroutine 
and no more. Confusion has been minimized, and there is no 
need for massive amounts of program editing. 

These subroutines and this project utilize the basic 
aerodynamic theories of the helicopter, and it is not the 
intention of this project to teach this theory, nor is it 
Mmeemantention of this project to teach calculator programming 
Operations. The user of these programs 1S assumed to have a 
basic knowledge of helicopter aerodynamics and it is further 
assumed that the user is proficient with the HP-41 program- 


mable calculator. 
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Pita the SOLUTION 


A. PROGRAM AND SUBROUTINE ORGANIZATION 
The program and subroutine documentation used throughout 
this project exists in six sections. The nature of each of 
these sections is as follows: 
im) SEUE POSE 
This section gives a brief description of the in- 
tended purpose of the program or subroutine. This section 
will often show a listing of the various program displays 
and outputs. 
Zz. EaQuations 
This section lists the various equations used within 
the program or subroutine. If the program or subroutine 
should call and execute another subroutine, this section 
will not list nor discuss the equations used by the "called" 
subroutine. This section will also list and describe the 
notation used in the equations listed. Whenever applicable, 
units are also listed as part of the notation description. 
The vast majority or the equations used in these programs 
Beme from Aircraft Performance [Ref. 1], NACA Report [1235] 
eee cl, and Aerodynamics of V/STOL Flight [Ref. 3]. 
ae Ellowehnart 
This section contains a flowchart which is an out- 


line of the computational process utilized in the program or 


2 





subroutine. The standard HP-41 flowcharting symbols as out- 


lined in the Hewlett-Packard Owner's Handbook and Program- 





meng Guide [Ref. 4] have been used: 


circles for beginning and ending a pro- 
gram or subroutine 


rectangles to represent the functional 
operations 


diamonds to represent the decision 
processes. 


The rectangle was modified somewhat from the standard HP 


notation in order to visually represent a subroutine: 


modified rectangle to represent subrou- 
tine operation 


a, Example Problems and User Instructions 


This section represents a series of example problems 
that when executed by the user, will serve to familiarize 
the user with program operation, program displays, required 
Calculator key strokes, program notation, program inputs, 
and program outputs. The example problems contain the de- 
Sign data of actual operational military helicopters which 
in turn serves to familiarize the user with these aircraft. 


A word of warning must be emphasized. The results or outputs 
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of these programs when compared with actual operational data 
are sometimes amazingly accurate, but at other times, they 
are not. Again, the theory used in computation uses numerous 
assumptions that do not take into account actual flight and 
operational conditions. Therefore, when executing power re- 
quirements, these programs should never be used in lieu of 
the appropriate manufacturer's performance charts or opera- 
tor's manuals. Again, the purpose of these programs 1s to 
give the preliminary design engineer acceptable figures in 
the preliminary helicopter design process and not to super- 
cede performance charts or operator's manuals. 
See eregrams and Subroutines Used 

This section lists all of the programs and subrou- 
tines used during the execution of the main program or sub- 
routine. The user must insure that the listed programs and 
Subroutines are in program memory before execution of the 
program is attempted otherwise the word "NONEXISTENT" will 
appear in the calculator display as the calculator searches 
for a subroutine or program that cannot be found in the cal- 
culator's program memory. AS expected, the program cannot 
and obviously will not be executed. 

we FLogmam Listings 

This section contains a listing of the program lines 
of the program or subroutine. In some cases, as in Appendix 
B, both the program and its subroutine version are listed. 


The main programs listed in Appendix D will call and execute 


14 





many of the major subroutines listed in Appendix C as well as 


the minor subroutines listed in Appendix B. 
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iV. wee sounes 


The results of this programming project are presented in 
Appendices B, C, and D. Appendix B contains many short pro- 
Grams and their subroutine form. These programs execute 
simple calculations such as solidity of the rotor system, 
rotor disc area, density of the air, etc. Appendix C con- 
tains major subroutines. These subroutines execute major 
calculations such as induced power, profile power, data in- 
put, tandem rotor equivalent area, etc. Appendix D contains 
the major programs for power required calculations. These 
main programs call and execute many of the minor subroutines 
found in Appendix B and many of the major subroutines found 
in Appendix C. 

The validity of the output of these programs is excellent 
for the intended purpose of preliminary helicopter design 
calculations and estimations. As mentioned previously, the 
idealized theory used does make several assumptions and thus 
certain limitations are imposed upon the results. Some of 
the limitations are listed here: 

1. Symmetric airfoils with zero twist are used through- 
out these programs. All actual helicopters have main rotor 
blades which utilize some degree of twist. This in turn 


will affect the overall lift generation and distribution. 
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2. The streamlining effects of the vertical fin on tail 
rotor power requirements in forward flight were not modeled 
and thus taken into account. 

3. Compressibility effects on the advancing main rotor 
blade and stall effects on the retreating main rotor blade 
were not modeled and thus taken into account. Both of these 
effects will add to the overall horsepower requirements in 
forward flight computations. 

4, The theory used did not take into account accessory 
losses such as hydraulic pumps, electrical generators, fuel 
pumps, heaters and air conditioners. Nor did the theory take 
into account drive train losses such as gear and transmission 
friction. All helicopter manufacturers will in some form in- 
corporate these losses into their performance charts. 

5. These programs do not take into account the main 
rotor downwash effects on the helicopter fuselage. This is 
a small horsepower requirement and was neglected here. 

6. These programs do not take into account those real 
world operating conditions that have an overall effect on the 
performance of the helicopter. These conditions include, but 
are not limited to, engine erosion, dirty engine compressor 
blades, dirty and/or dented rotor blades. Again, these pro- 
grams should not be substituted for performance charts and 


Operator's manuals. 


ty, 





V. CONCLUSIONS AND RECOMMENDATIONS 


The user of these programs should work through the exam- 
ple problems given in the various program and subroutine 
listings. In doing so, Table I, Appendix A, An Alphabetical 
Listing of All Calculator Displays and Their Intended Mean- 
ing, will become a valuable aid. Table II, Appendix A, Pro- 
gram and Subroutine Storage Requirements, will also become 
useful in that it readily assists the user in keeping track 
of the calculator memory required and remaining. And, if it 
becomes necessary, Table III, Appendix A, Storage Register 
Utilization, will assist the user in the program editing 
process in that it lists the program registers used and their 
contents; 32 program registers have been used. The user 
should insure that the calculator has been sized for 931 be- 


fore attempting execution of the programs. 





APPENDIX A 


QUICK REFERENCE TABLES 


The tables in this appendix will serve the user of this 
Project as a source of quick reference. Table I is an alpha- 
betical listing of all the possible calculator displays and 
their intended meanings. Table II lists all of the programs 
and subroutines and their respective storage requirements 
both in terms of registers required and bytes required. This 
table readily assists the user in keeping track of the cal- 
culator memory required and remaining. Table III lists the 
storage registers and their utilization. This table will 


assist the user in the program editing process. 
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TABLE I 


AN ALPHABETICAL LISTING OF ALL CALCULATOR 
DISPLAYS AND THEIR INTENDED MEANINGS 


Formula 
Display Explanation Notation 


Bromo: Locact1on Of tne radius 
where the taper starts ona 


tapered rotor blade (decimal 
value) 


Answer: tip loss factor 
(decimal value) 

b=? Prompt: number of blades in 
the rotor system 


BOTH IMmGgLcates calculator is about 
to execute combination of ver- 
Gigthweliaterand Nor. zonta | 
Litehie a somwarcd climbing 
ed bstiejoum)' 


C=? PRenpt: Ghote length of the eS 
rotor Dlade ion fet 

Gae=? Prompt: average profile drag = 
coefficient 


CHANGE? | Prompt: asks if the original 
input data now needs to be 
changed. 14is Yes, 0 is Ne 








SeerYy b R W chord-rotational velocity- 


number of blades-radius-weight, 
press key on calculator key- 
board directly beneath the 
variable in need of change 


27000 





ae 


PLOmMoE: root. chord 1n ft 
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TABLE I 
(continued) 


Prompt: distance between the 


rotor shafts of a tandem rotor 
helicopter in ft 


d (HOR. GLIDE) = Answer: horizontal distance 
travelled on the ground at the 
forward autorotative flight 
velocity for minimum rate of 
descent in ft 


b.L.= Answer: disc loading of the Bite 
rotor system in lbs/ft?* 
» N= 


Answer: density of the air 
lb-sec* or slug 
et: me 








| 


Answer: a non-dimensional 
coefficient used in autoro- 
tation calculations 





FOR ONLY? Prompt: execute forward = 
Pegi pOSeLon Gf program 
Chyovel its, Yes; 0 1s No 


FOR V=? Pu@mor: cOGwald —fLlaqnt Ve 
velocity in kts 


Prompt: equivalent flat plate 
Bisca -§Or fTonwara flight 
Galiculations in  £t- 





F.P.A. (VF) =? Prompt: equivalent flat plate 
area for vertical flight 
calculations in ft? 





GE=0 Answer: ground effect on the Ss 
induced power is equal to zero 


oe: 





TABLE IL 
(continued) 





GE=0 , RATIO=1 Answer: ground effect on the 
induced power is equal to zero, 
therefore the ground effect 
ratio is equal to l 


H=? Prompt: height of the rotor h 
System above the ground in ft 


HOVER? Prompt: execute hovering 
fitcGine POLELOn Of program only? 
lis Yes, 0 is No 


LCM=? EPSOMD eo elict CoOeciEticient mul- 
Piper 1Tiednag Coerri Client 
terms 


L (TAIL) =? EVomor:. tall Length; distance 
from center of main rotor 


Steam tee ecenter Of tar lrotor 
efiakt in £t 





M(TIP)= Answer: Mach Number at the 
GED OL Ene advancing rotor 
blade 


PA=? Prompt: pressure altitude 
Lia ot 
Answer: climb power in 
horsepower 

I= Answer: induced power in P. 

horsepower 

PI(TL)= Answer: induced power with Ps (ry) 
tip losses in horsepower 

PI (TL+GE) = Answer: induced power with 


tip losses plus grouna 
effect in horsepower 


Answer: profile power in 
horsepower 


PO (TDM) = Answer: profile power for a 





Pi (TL+GE) 





tandem rotor helicopter in 
horsepower 





ee 





VABIGE -— L 
(continued) 


Answer: parasite power in 
horsepower 
PT(ACFT) = Answer: total power for the Pir 
alrcraft in norsepower 
PT (MR) = Answer: total power for the Pm 
main rotor in horsepower 
P 


PT (TDM) = Answer: total power for a 
tandem rotor helicopter 
in horsepower 


eT(TR)= Answer: total power for the oe 
tailrotor in horsepower = 
R=? ProOmotmmaciiis Or Ene —TOtLOr 
system in ft 


RATIO= Answer: ground effect ratio 


REC=? Prompt: is the rotor blade 
of rectangular planform? 
ims Yes-s 0 1s) No 





RV=? Prompt: rotational velocity 
of the rotor system in 
radians/second 


SOLID= Answer: the solidity of the om. 
rotor system 

T=? Prompt: ambient temperature oa) 
in degrees celsius 


DR DATA the calculator is now ready 
to prompt for the tailrotor 
data input 


VERT ONLY? Prompt: execute vertical 
Flight portion of program 











emive 1 1s Yes, 0 is No 


VERT V=? Prompt: vertical velocity ee 
Pee e/min | 


Zo 





TABLE I 
(continued) 















VF (MIN.R.O.D.)= Answer: forward autorotative 


CA aieevelocity £Or minimum 
autorotative rate of descent 
ar ales 


VI= Answer: induced velocity in ve 
ft/sec - 3 
VT= Answer: velocity at the rotor V 
Bl 
tip in ft/sec 
VV= V 


Answer: vertical autorotative 
velocity in a vertical auto- 
BOcatLton th) £e/mMiLa 


















VV(MIN.R.O.D.)= Answer: vertical autorotative 


velocity (ft/min) at the for- 
ward autorotative flight vel- 
ocity for minimum autorotative 
rate or descent 
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TABLE ITI 


PROGRAM AND SUBROUTINE 
STORAGE REQUIREMENTS 


li Subroutine Program 
ESC 


Appendix B: By: 


et 
Altitude 

feostey [veep [ome [a 
a 
sousaity | sor | 3 | te [sony | 6 | as | 
ec a ER a 


Induced es Colla EVEN Ba 
Velocity 
Coefficient Sere "CTHRUST" 58 
ei Thrust 
Tip Loss Hab sty't CRED LOss | 
Paccor 
Equivalent Pf ECHORD” 
Snord 


aesae, a i 
ee 


Vertical Com- VG 
ponent of 
Induced 
Velocity 


[oe 
Gangs of weal vo fpr pa | | -1- 
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TABLE II (continued) 


Gubjece Area [| vowe [fou [ovee] rome [a [aves 
potieroer [er | ate >] -]- 
induced rower [er eee | | - | 
cum ewer [re | sf=| - |-|- 
es cE 
pot rome for | sp] - | -]|— 


Equivalent "AE" a 47 
Area Tandem 
Rotor 
Induced Power ee ie. 
Tandem Rotor 
feoendin 8 eo 


pee [OT [= 
Regimes 

peer | | ee 
poeororstion [=f = | = [rane 
pease eer [= [= |= Pamer [fe 
pase mers ao 
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TABEE et 


STCRAGE REGISTER UTILIZATION 


2 
Register Stored Quantity 
D2 |__ bank = weed for computations 


OE: a - fraction of radius where the taper starts 
on a tapered rotor blade (decimal value) 

Oi eg, E ~ the chord or equivalent chord 

length of the rotor blade (ft) 

R - the radius of the rotor system (fit) 
= b - the number of blades in the rotor system 
(UC C4 - the average profile drag coefficient 

O 
& = the rotational velocity of the rotor 
system (radians/sec) 
Sm h - rotor system height above the ground (ft)] 
im Ne rewengic Cr thne pelicopter (lbs) 


= | ° - density of the air lb-sec* Or 
t* 4 


ey aa 
Da | vy = vlociey of the rotor Hip (Reed) 


| 16 P. - induced power with tip losses 
an) 
(horsepower) 
7 n/D - height + diameter of rotor system used 
: for ground effect calculations 
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TABLE III 
(continued) 


ae eee 

[a [ op = te soliecey of the rotor wyaten 
ce 
ee 
[22 [tank = usea for computations 
a 
ae 

EMoqnteacaleculations (£t~) 


~ forward velocity (ft/sec) 


- equivalent flat plate area for forward 
Piveniwecalcmlations (£t>) 





- vertical component of the induced 


velocity through the rotor system for 
[Evan climbing fPlaght, (ft/sec) 


Se ~ parasite power (horsepower) 
2 ~ climb power (horsepower) 
= ~ total power (horsepower) 


indirect storage register - used by all the 





Hau OLeograms 1m CON JUNCELON with Subroutine 
i iy 





feeeeee subroutine "CF", Subroutine "VC", and Program "TR" 
contain the only deviations from the above table in storage 
Meer ster utilization. This is done to optimize calculator 
storage requirements. The appropriate program or subroutine 
listing gives a complete explanation for the appropriate 


deviation. The calculator should be sized for 032. 
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APPENDIX B 


MINOR PROGRAMS AND SUBROUTINES 


This appendix consists of several short programs and 
their subroutine form. These programs compute density alti- 
mee, density, disc area, solidity, tip velocity, induced 
memocity, coefficient of thrust, tip loss factor, equivalent 
chord, and ground effect. The subroutines will be called 


and executed by the main programs in appendix D. 


I) 





DENSITY ALTITUDE 


imo LF URPOSE 

This program computes the density altitude, ee in feet 
when given the pressure altitude, SA in feet and the tem- 
perature in degrees celsius. The equation used for this pro- 
gram is based upon the standard atmosphere and described in 
Meee Report (1955) No. 1235 [Reft. 2]. This equation and 
meus this program is accurate to an altitude of 36,0839 feet 


MesOothermal level). 
Ze LQUATIONS 


O ss i 


where: 

T is the ambient temperature (absolute) 
Beets Ele standard sealevel temperature (absolute) 
h is the pressure altitude (feet) 


A, is the density altitude (feet) 


Ione de a Conerant equal to’ 6.875 x 107° 
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3. FLOWCHART 










PEOMDG fL£Oreancd ganout h 
and T while solving 
equation for A 





Display answer 


4. =XAMPLE PROBLEMS AND USER INSTRUCTIONS 
The altimeter of a UH-60A currently indicates a pressure 


altitude of 1600 feet and the 0O.A.T. (Outside Air Tempera- 


ture) gauge indicates 24° Celsius. What 1s the density 
altitude? 

Keystrokes: Display: 

[XEQ] [ALPHA] DA [ALPHA] PA=? 

1600 [R/S] T=? 

24 [R/S] DA=3,006.48 

note - do not touch the calculator and proceed immediately 


to the next problem 


The same UH-60A is now sitting On the deck of a ship. The 


altimeter indicates 0 feet and the 0.A.T. gauge indicates 15° 


ou 





What is the density altitude? 


Keystrokes: Disa lay: 
mys) [R/S] PA=? 
Cm R/S | T=? 
eo R/S ) DA=0 .00 


(standard day sea 
level conditions) 


note - pushing the run stop [R/S] button twice will reposi- 


tion the calculator to the top of the program 


pee © ROGRAMS & SUBROUTINES USED 


DA” 


6. PROGRAM LISTINGS 


ALle*LEL “IF te 255.16 
a2 "“Po=? oe 

AS PROMPT 1S 2.23456 
tee. o cae & Pe Le: 
Ae. <f&4 CHS 

AS “i i 

a6 CHS co ft 

ae (ot “3 68.5F°35 E- 
Acs + Fie, 

ma S.2561 at # 

lie YTS ea Fis = 
; oe es a 2-6 “DA= 
12 PROMPT oF ARCL # 
mere 7 Ss. 16 oo AYVIEN 
id + ae Sh 

is. 7 
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DENS 1 LY 


mo PURPOSE 

This program/subroutine computes the density of the air 
at a given altitude. The equation used for this calculation 
is based upon the standard atmosphere and described in NACA 
Pemort No. 1235 (Ref. 2). This equation and thus this pro- 
gram is accurate to an altitude of 36,089 feet (isothermal 
level). This program is therefore considered sufficient for 
all computations using density, o, here and in succeeding 


programs. 


eee SQUATIONS 


Mee o 6 tL 


© = Pog) [2 - (Ki) () | (2) 


ss] is the density of the air at standard sea 


level conditions which is equal to 


- 
7 lb: é 
0.0023769 b*sec or Sug | 

£t* fete | 


ii 2S5a Constant equal to 6.875 xX lo. 
h is the density altitude (ft) 
op is the density of the air at level h 
with the input of known values, the equation to be pro- 


grammed now becomes: 


Po ical 


9 = 0.0023769 Soe 7 on ge 


Sd 


a) S 





eee F LOWCHART 









Execute Subroutine "DN"; 
PEON: 20m wala neue Di A. 
while solving equation 

for 9, and store answer 
into Ri 








Display answer 





2. 2XAMPLE PROBLEMS AND USER INSTPUCTIONS 


mana the density, pop, at a density altitude, D.A., of 


1000 feet. 

Keystrokes: Bicpuay 

[XEQ] [ALPHA] DENSITY [ALPHA] D.A.=? 

moo [R/S] DN=0 .002390381 

note - do not touch the calculator and proceed immediately 


to the next problem 


mma the density, o, at a density altitude, D.A., of 


5283 feet. 
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Keystrokes: Display: 

B/S) [R/S] D.A.=? 

283 (R/S) DN=0.0020306 

note - pushing the run stop [R/S] button twice will reposi- 


Ploneunorecaleulator to the top Of the orogram 


Find the density, 0, at a density altitude, D.A., of 


QO feet (sea level). 


Keystrokes: Display: 
[R/S] [R/S] D.A.=? 
eel s/ S | DN=0 .0023769 


(standard day sea 
level conditions) 


eee PROGRAMS & SUBROUTINES USED 


MbEN:.. TY ” 
I DN iB | 


oe © ROGRAM LISTINGS 


PROGRAM SUBROUTINE 
HILeLeEL DEF: Miele His 
=. 1" AS © .oHe =: 
Hs SER in as PROMPT 
Ha FIs F Ad 8. S75 = 
Ad “DH= aS 
aS ARCL : as * 
He HYIED He CHS 
Hy, EHD we od 
WS + 
H2 ENWTERT 
Pes Sot Lt 
ele aes 
fe Sages. os 
{3 ck 
id STO il 
iS END 


Sp 





DiSG AREA 


im PURPOSE 

This program/subroutine calculates the disc area of a 
rotor system when given the radius. The disc area is the 
total area enscribed by the plane of the rotor without 


Boning. 


2. EQUATIONS 


to 
~~” 


Ay = TR? ( 


An is the Disc Area (ft?) 


R is the rotor system radius (ft) 


3. FLOWCHART 


PROG. .Or cance inolc. 21a Ra. 





Execute Subroutine "AD"; solves 


equation for A. and stores 
answer 2nto Ry 5 








Disvlay answer 


3.6 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


The rotor radius 


Pind the Disc Area. 


Keystrokes: 


[XEQ] [ALPHA] AREA [ALPHA] 


Poco [R/S] 


[mae rotor radius of the AE I1T SeaCobra 


the Disc Area. 


Keystrokes: 
[R/S] 
ies) 


[R/S] 


24.00 


5. PROGRAMS AND SUBROUTINES 
oA RA 
AT) 19 

6. PROGRAM LISTINGS 


PROGRAM 


1eLBL “HRE 


= (ys 


ws Fs awe “1 O88 
ene 


PROMPT 
STO a5 
SEQ “AD 


bm iS Sr Se Ee Ss Se ey 
Ris Co my ON fe tal fi 
TT 
jq 
fl 


BsbD 


a7 


of the UH-60A Blackhawk is 26.83 feet. 


Display: 
R=? 


AREA=2,261.47 


Display: 
R=? 


AREA=1,809.56 


SUBROUTINE 


ined 
+ 

c 
+ 
an 


1 oD 
rt 

oe 
mi 


a Ge a 
“wh LA fe ed fi 
“Th 
bed 


is 24.00 feet. 


Pama 





SOL Epa 


im PURPOSE 


This program/subroutine computes solidity, o the frac- 


wae 


jen Of the disc area that is composed of blades, i.e. solid. 


2. SQUATIONS 


Oy = BSR = 2S (5) 
where: 
cP eo wero oOlidrey Of ENS rotor isystem 
b is the number of rotor blades in the rotor system 
Reels the radaus Of the rotor system (ft) 


c is the chord length of the rotor blade (ft) 


3. FLOWCHART 


PROMPES2OL abasilheus S-1nto Roe 
Ceineo- 204 
Rion a. < 


Execute Subroutine "SD"; solves 
equation for gd, and stores 
answer into Ri, 





Display answer 
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4. SAMPLE PROBLEMS AND USER INSTRUCTIONS 


Mend the solidity, o,, of the aft rotor system on the CH-465 
Sea Knight (note - the fore and aft rotor systems both have 


the same dimensions). 


ee 25.50 £t 
ep- 1.5625 £t 
b= 3 
Keystrokes: Duco bay: 
[XEQ} [ALPHA] SOLID [ALPHA] b=? 
Eel R/S] C=? 
fm5625 [R/S] R=? 
B50 [R/S] SOLID=0 .05851 


firma the solidity, oe of the main rotor system of the 
CH-54A Skycrane. 


B= 36.00 £t 


ee 1.972. ft 
b = 6 
Keystrokes: Paso. aye 
[R/S] b=? 
Sel R/S | C=? 
mod? [R/S] R=? 
Boe09 [R/S] SOLID=0 .10462 
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PROGRAMS & SUBROUTINES 
SCORED « 

we. 

PROGRAM LISTINGS 


PROGRAM 


iG aa 

Ge "b= >" 
Aas PROMPT 
M4 STO fe 
G5 "“C=7" 
465 PROMPT 
A?r sTQ te 
AS f= 
B89 PROMFT 
16 STO as 
11 HER 50 
12 FIX 3 
13 "SOLIZ= 
14 ARCL : 
15 AVIEM 
ts END 


USED 
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SUBROULINE 
ALeLEL 
aS RCL 
AS RL 
i 

MS RL 
AS 
ay FY 
Piet 
Me Ss aa 
1a END 


mi 
foe Ts 


el 
if 


fut 
afi 


ts 





CEE TReGrTy 


foe PURPOSE 
This program/subroutine computes the tip velocity of the 


mecor blade. The tip velocity, V hs the preduct Of the 


AB 


Bertational velocity, %, and the rotor radius, R. 


wee EQUATIONS 


Vm = QR (6) 


Vin Po PenemvelOCity Ob Ene roronetip (£E/sec) 


Q is the rotational velocity (radians/sec) 


Beso tEdeG LOLOL racius (Let) 


Bee S| GOWCHART 


PrONPrs “Om ang THOME ky INeEOw ny s 
JR st olicley veaner ; 


ExXeCGuUreo Subroutine. vl +) SsOlves 


equation fOn Vij ana stores 
answer into R13 








Display answer 
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4. SAMPLE PROBLEMS AND USER INSTRUCTIONS 


Mne rotor radius of a CH=-53D Sea Stallion is 36.11 feet 
and the normal rotational velocity is 19.37 radians/sec. 


Find the tip velocity. 


Keystrokes: Display: 
[XEQ] [ALPHA] VTIP [ALPHA] R=? 

Be.ll {R/S] RV=? 
19.37 [R/S] VT=699.45 


The rotor radius of an AH-64 is 24.00 feet and the normal 


Becational velocity is 30.26 radians/sec. Find the tiv 


velocity. 

Keystrokes: Diswlay: 
o/s) R=? 

24 [R/S] RV=? 

fmee2o €«6[ R/S) VT=726 .24 
note - to convert RPM to radians/sec, divide by 9.55 


See PROGRAMS & SUBROUTINES USED 


evict Pp" 
1 Wa A | 
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See © ROGRAM LISTINGS 


PROGRAM SUBROUTINE 

Pieler Tt WLeLeEL 

Po B= RCL 
ae aS RCL 
PROMPT 7 eo Ss 
sTo as aS =sTo 
“RYSE ae END 
Pete 1 


STOQ as 
“ER ve hyT 
Fix 2 

as re e— as 
ARLCL & 
AY TEL 
END 


eal tall coe coed KYO LM BER KS BY TN PN 


OS cee VY CE i) eC 0 
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ENDUGH SO] VELOCITY 


i PURPOSE 
This program/subroutine computes the induced velocity, 


V mae total immlow Velocity through the rotor system 


Sd 


Bring hover. 


eee EQUATIONS 


where: 
v. is the induced velocity (ft/sec) 


Selice tiemdensity of eqenal = Bisec 


fo 


Be is the rotor disc area (ft?) 


i eis ehe EChrust which 1s equal to the weight, W (lps) 
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ae “LOWCHART 


Prompt for and input W into Rj, 
Rai Ome gc 


i Execute Subroutine "AD" FE 








[| ExMeciren Sua courmune | (DN i 


Execute Subroutine "VI": solves 






equation for v. and stores 
answer into Ro, 


Display answer 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the induced velocity, Vir of the main rotor system of 
a hovering SH-2F LAMPS under the following conditions: 


DA = 0 (sea level) 


W= 11,300 lb 
Pa 22.0) £t 
note - insure that Subroutines "AD" and "DN" are in program 
memory 
Keystrokes: Display: 
[XEQ] [ALPHA] VIND [ALPHA] N=? 


45 





11,300 [R/S] R=? 
22.0 [R/S] D.A.=? 


Ol R/S | VI=39 .54 


Find the induced velocity, Vis GOL Cee Main FOtor system of 
a hovering CH-~-54A Skycrane under the following conditions: 


Dea. = 2000 £t 


R = 36 ft 

W = 42,500 (maximum gross weight) 
Keystrokes: Display: 
ER 5 | W=? 
27200 [R/S] R=? 
Sor [R/S] D.A.=? 
Boog [R/S] VI=48 .26 


5. PROGRAMS & SUBROUTINES USED 


ayy aN D " 
da i 
CAL) iT ] 
9 DN et 
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6. PROGRAM LISTINGS 


PROGRAM SUBROUTINE 
MLeLBL "VI ALeLEL 
a" A> ROL 18 
aS “We? " BS = 

as PROMPT ad - 

Hd STQ 18 aS FCL 13 
nS ’RoST" ag - 

as PROMFT “ae eee ¢ 
ar sToO @s aS 

AS HEA “AD” as SORT 
Ho HER “DH" 1a sTo SH 
1a HE wt" 11 EN 
1i1Fia = 

1 = PT) iJ I —_ 

13 ARCL & 

it AVIEW 

15 END 
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COLPrICieeyos THRUST 


Zo EURPOSE 

This program/subroutine computes the coefficient of 
Bimust fOr a given rotor system. The coefficient of thrust 
is a non-dimensional coefficient established to facilitate 


computations and comparisons. [Ref.1] 


Pee SOUATIONS 


ale 
er (8) 


e e 2 
An? o°Vin 


where: 
Cnr is the coefficient of thrust (non-dimensional) 
A, is the disc area (ft’) 
V is the tip velocity (ft/sec) 


9 is the density of the air | 
fete 


T is the thrust which is equal to the weight, W (lb) 
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oa =F LOWCHART 


PEOMperrOn anc Tmput sw Ameo OR), 


Ree « s 
RV into Ry, 











[ EXeCUCe. Subroutine ‘DN yi 
ii Execute Subroutine "AD" is 
; Execute Subroutine “Vir : 





Execute Subroutine "CT": solves 


equation for Cn» and stores 
answer into Ri, 








Display answer 


Pee SXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the coefficient of thrust, Core fOr a Ui=la teoguers 


Operating under the following conditions: 


* 
<i 
i 


305 RPM + 2 = 31.94 radians/sec 


Ben. = 1600 £t 


= 
if 


8400 lbs 


w 
i 


22509) Et 
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Keystrokes: Display: 


[XEQ} [ALPHA] CTHRUST [ALPHA] W=2 

8,400 [R/S] R=? 

24.09 [R/S] RV=? 

cee 94 [R/S] Dene? 

mood [R/S] CT=0 .0034320 


Mma the coefficient of thrust, CH for an OH-6A operating 
under the following conditions: 

N = 470 RPM + 2 = 49.21 radians/sec 

D.A. = 4000 £t 


W = 2500 lb 


ee 135265 £t 
Keystrokes: Display: 
[R/S] W=? 
2.500 R=? 
165 RV=? 
oe. 2 1 D.A.=? 
4,000 CT=0 0051524 


wee © ROGRAMS & SUBROUTINES USED 


wee HiRUST” 
8 eT 3 
if | DN 9 
F AD ig 
| vr 3 


=0) 





6. PROGRAM LISTINGS 


PROGRAM SUBROUTINE 


#LeL 
= RCL 
ae ; kECL 
PROMPT 
STO 18 
28 Fe=> 2 
PROMPT 
270 Wh 
en Ruf? oe 
FROMPT 
STO We 


Re 


ROL 


xT? 


Ss eT ye 
Bore 


ENT 


Me em) eC fe ad ft a 
Pa A WN KCN A 8) 
Sr OS ae es De OS 0 


bad 


13-4 
SHE “OH" 
MEQ “AD" 
SE mn aa 1, ite oe 
SEQ “CT” 
Fis 

as eee —_" 
ARLL & 
AN IEW 
END 


ecb ch ch pk eh beh beh ee ee ee 1S SD 


wo us On fe i fe 


Sl 


bs a 
pee 
= 


Tg 





tee BOSS  FAclorR 


1. PURPOSE 

This program/subroutine computes the tip loss factor, B. 
Tip vortices, at the tip of the rotor blades, tend to despoil 
the pressure difference at the tips and thereby reduces the 
lift at the tips. The extent of these losses depends upon 
the rotor blade loadings, and number of blades. Numerous 
theories exist. The theory used in this subroutine is an 
Bperoximation of the tip loss factor made by Prandtl and 
Betz. [Ref. 1] After the tip loss factor, B, has been com- 
puted in the subroutine and returned to the main programs 
used later, the induced power will change in accordance 


with the following equation: 





Be. 
P, = ~ (9) 
iG 3B 
where: 
P, is the induced power with tip losses 
te 
P; is the induced power 


B is the tip loss factor 


2. SQUATIONS 


TAGE 
b 


(10) 


Ww 
II 
! 


oz 





where: 
e HomenNe —COettthetemc Of Chrust 
bees uehe Mmumoer Of rotor blades 


Be ois cie €ip Loss. factor 


3. FLOWCHART 


Prompt eroOr and inpue vi 














R 

RV 

b 
| EXeCcuUte  ouDrOULIne —§ Ol" i 
ii Execute Subroutine "AD" | 
i Execute Subroutine "VT" ip 
| ExMecwbeCesSiioroulecine CT" Pe 





PReGCUEe SUOrOUtEIne Th = “solves 


equation for B and stores 
answer into R15 








Display answer 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the tip loss factor, B, for an OH-6A Cayuse operating 
under the following conditions: 
N= 470 RPM > 2 = 49.21 radians/sec 


D.A. = 5,000 ft 


W= 2,150 lbs 

Fe 13.165 £t 

5b = 4 
Keystrokes: Daspway: 
[XEQ] [ALPHA] TIPLOSS [ALPHA] W=? 
mo 6 R/S) R=? 
iomt65 [R/S] RV=? 
peel (R/S) b=? 
4 [R/S] Deas? 
2000 [R/S] =0 .9760 


Mena the tip loss factor, B, for the same helicopter in the 


above problem, only this time use the maximum gross weight 


of W = 2550 lbs. 


Keystrokes: Display: 
[R/S] W=? 

E550 [R/S] R=? 

mm 65 [R/S] RV=? 
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foc) [R/S] 
4 [R/S] 


5000 [R/S] 


eee PROGRAMS & SUBROUTINES USED 


eee LOSS” 
" rey. " 
Uh DN " 
" AD 1 
8 VT " 
tw cT Lh 


oe PROGRAM LISTINGS 


PROGRAM 


A1*LBL “TIP 
Lass" 

@2 "“W=?" 
QZ PROMPT 
a4 STO 16 


15 REG "AD" 


16 MER WT 
iy SE® a) 
1S SEL Th 
i? Fia 4 

en 5 (TT — oe 

<i ARCL & 
ee AYWIEWM 
2s ENT 


5) 


ALe*LeBL 


feb poe pot ME Mey St US) IR 
fee ag fm) oA ee 


b=? 
D.A.=? 


B=0 2759 


SUBROUTINE 





j[=—~,. 


EQUIVALENT CHORD 


im PURPOSE 

This program is also used as a subroutine by the main 
programs. This program computes the equivalent chord, Car 
for a tapered rotor blade. A tapered rotor blade (the 
chord at the tip less than the chord at the root) has less 
tip loss effect due to the smaller surface area over which 
the losses may occur; this is the primary reason for taper- 


mag the tips Of the rotor blades. [Ref. 1] 


Zee «EQUATIONS 
The calculation for equivalent chord for thrust deter- 


minations has reduced to the following figure and equation: 


4-— 


oF SS Cy 
i - 
ie, a 
PREURE il 
Tapered Rotor Blade 
C = Ci + | (l - a’) (ea) 
e 
I l-a | 
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where: 

oe is the equivalent chord (ft) 
Mel eGo heOeychnord Cit) 
Cramer S sehe tip chord: (£t) 


a is the fraction of radius where the taper starts 
(decimal value) 


note - when a = 0, the blade has a linear taper from the 
root to the tip. When a = 1, the blade is completely 


rectangular, and ope Te 


3. FLOWCHART 


Prompt for and input 
oF Lge, Roi 


Gentoo 
e\ 51/9) oe) See 


Solves equation 
| 1s Og C. 








Display answer 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the equivalent chord, Ce for a tapered rotor blade 
With the following dimensions: 


oer — ais Et 


C, = 0.8 ft 
aie es) 5 
Keystrokes: Dusplays 
[XEQ] [ALPHA] ECHORD [ALPHA] C0Q=? 
io «| R/S] Cl=? 
oo [R/S] a=? 
mes (R/S) CE=1.347 


Mead the equivalent chord, Coe for a tapered rotor blade 
with the following dimensions: 


C, = 1.0 ft 


oe -— 0.9 £t 
ce 9 
Keystrokes: Display: 
[R/S] [R/S] C0=? 
fm 1R/S |] Cl=? 
mr [R/S] a=? 


me iR/S) CE=0 .986 





PROGRAMS & SUBROUTINES USED 
“ECHORD” 
PROGRAM LISTINGS 


PROGRAM 


Ale*LBL “ELH 


Ho “C= s" 
AS PROMPT 
Ad STO Wi 
imesh i. = 7" 
He PROMPT 
HF STO He 
a=?" 
PROMPT 
rea Mg ie 


CO ON oe eb ee oe fe 


Wa) Cad Cod Cel Cod Qed ted Cad Qed Pod Poe Dye Pd Ped Pt Pot Pt Pad Pag hee tee bak bk ee pe be ee pee be EY ED I 


5S, 





GROUNDS ES VEC 


=. PURPOSE 

This program/subroutine computes the ground effect ratio 
?/Pocr: ac va fumnectiom of Ehe ratio Of the rotor. system 
height above the ground to the diameter of the rotor system. 
[Ref. 1} FIGURE 2 is a graph which shows the ratio of power 
required to hover in-ground-effect to that required to hover 
out-of-ground-effect for the average helicopter. This curve 
was obtained as the best fit to considerable amounts of test 


data on both single and tandem rotor helicopters. [Ref. 3] 


SOLO] os 
' ee 


cv 9] 


p/P 





O O4 0.3 22 


{> 


0) 
m 


r “ctor “eiant 


8; Fotrr tiamrete: 


PLGURS 2 
Grouna 2=fteecte curve [Rer. 3| 


Zee SQUATIONS 
Pmeurve ticting equation for the olot of FIGURE 2 re- 


sults in the following equation: 


60 








ear. Pp 

RATIO — Da = —0.1276(h/D) * + 0.7080(h/D)? - 1.4569 (h/D) 2 
+ 1.3432(h/D) + 0.5147 ‘ae 

where: 


h is the height of the rotor system above the 
GEGuURneG (rc) 


D ais the diameter of the rotor system (ft) 
P is the power in-ground-effect 


PocR iS the power out-of-ground effect 


See © LOWCHART 


Prompt for H and R while solving 
for (h/D) and store answer in R7 


Ves Le 










Execute Subroutine 
"GE"; solves equa- | 
Gaon fer .G.2. RATIO 


Display answer 


Display | 
"GE=0 ,RATIO=1" 
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a ; i 


a> EXAMPLES PROBLEMS AND USER INSTRUCTIONS 


mie TOLOr radius of an SH-3H is 31.0 ft. It is currently 
hovering above the deck of the antisubmarine carrier 
Yorktown with the rotor system 24.33 ft above the deck 


(wheels 10 ft above the deck). What is the ground effect 


feel tc 1.O 2 

Keystrokes: Display: 

[XEQ] [ALPHA] GEFFECT [ALPHA] H=? 

feeo3 (R/S) R=? 

eee 1 R/S) RATIO=0 .8572 
fgemeEOtOr radius Of an AH-lS Cobra is 22.0 ft. It is moving 


into a holding position behind and just below the top of 
some tall cover with the rotor system 70.0 £t above the 
ground (skids 58.0 ft above the ground). What is the 


emeound effect ratio? 


Keystrokes: Display: 
[R/S] y=? 

po [R/S] R=? 

Ze R/S) GE=0 , RATIO=1 
note - the Cobra is hovering out of ground effect 


Se PROGRAMS & SUBROUTINES USED 


“GEFFECT" 
DY GB | 
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PROGRAM LISTINGS 


PROGRAM 


MLleLBL “GEF 


FECT” 
Q@2 “H=7" 
PROMPT 


OO BP el cl cell cell cn cell oo coll ell ed "1 PN OO OY 


ee NOLS OEY Ses Ohm a) ee OS ON ON es | | 
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SUBROUTINE 


1 
Be Tala eee! 
Ad « 

aS PCL 1 
ag “tS 
aF -1.45 
AS + 

AD + 

i@ RCL 1 
11 3 

12 °YT 
iz .7ase 
id * 

iS + 

i6 PCL i 
i7 4 

is Yt 
19 -.127 
2 + 

S41 + 

22 .5147 
23 + 

24 EMD 








APPEND XC 


MAJOR SUBROUTINES 


This appendix consists of several major subroutines that 
are called and executed by the main programs of appendix D. 
These subroutines compute the vertical component of the in- 
duced velocity for forward climbing flight; prompt for data 
met; prompt for change of original data input; compute pro- 
File power, induced power, climb power, parasite power, and 
total power all for a single rotor helicopter; and compute 
the equivalent area and the induced power requirements for a 


tandem rotor helicopter. 
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COER Swe rLENTS 


ie PURPOSS 

This is a Subroutine used by those main programs that 
Seal with forward climbing flight computations. This Sub- 
routine calculates and stores the coefficients of a fourth 
Orcer equation which Subroutine “YC" will recall and use 
to solve for the one real root of this equation. This real 
root is the vertical component of the induced velocity, aR 


which when multiplied with the thrust, T, gives the product 


of incuced power, Por LOmerenmvatc Clamping flight. 


Zoe = DUATIONS 


Bev. ) FOB(y. )° + Clv. )* + Div. ) + E = 0 es) 
L Lim Lr 1, 
Ak ae at ake 
where: 
A = 1.0 
B = ee V is the vertical velocity 
a (aEVicee) 
eo (Vv 2* 2oue-) V- is the forward velocity 
i V ne 
(ft/sec) 
D = 0 Vv; TSeche Tnduced| velocity 
at a hover (ft/sec) 
Ea 
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oe © LOWCHART 


PEGMOta Ou ana tipiwe R 2neo Ry = 
W into 8,, 








i Execute Subroutine "DN" i 
F HeeeGuce Sluloroutine “AD” i 
if Beecute Submeutine "Vi" i 





Solve equation for E 
and store answer into R,, 


| Solve equation for D 
and store answer into R,, 


Solve equation for A 
and store answer into R,, 


Solve equation for 8 
and store answer into Soe 


Solve equation for C 


ane Store answer into se 


4. UXAMPLE PROBLEMS AND USER INSTRUCTIONS 
This subroutine is immediately followed by Subroutine 
"VC" when used in the main programs. During its computation, 


eMeroutine "VC" uses storage registers R,, through ee 
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It is therefore necessary to use Subroutine "DATA" at a 
latter time in the main program in order to get the input 
data properly stored into the correct memory registers. 
Because Of this, some repetition of input data prompting 


will occur during main program usage. 


eee | ROGRAMS AND SUBROUTINES USED 


Uh CF " 
" DN Uy 
AD a 
uNy uy 


6. PROGRAM LISTINGS 


SUBROUTINE 
aero Cr 


@2 “R=7" 
43 PROMPT 
a4 STO a5 


nS =F. 
46 PROMPT 
wr sfo 18 
MS HED “DN 
43 SEG “AD 
1i@ HE “Yt 
ii <4 

fe Ts 

is CHS 

id S70 14 
i350 «6 

fa sf 12 
if I 

is sTO i4 
os REL Ss 
at = 

<1 + 

ee “Sr 13 
a. 

Ba 7 

Bees) oT 

ae FEL £5 
or “ate 

mi 

aoe STO. Le 
2H END 
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Vin CulaCOMPONE NT SOr ENDUCED VELOCITY 


1. PURPOSE 

Subroutine "VC" is a subroutine used by those main pro- 
grams that deal with forward climbing flight computations. 
It will immediately follow Subroutine "CF" in the main pro- 
gram listing because Subroutine "VC" recalls the coeffi- 
Clients of a fourth equation that Subroutine "CF" previously 
calculated. Subroutine "VC" uses the input of these co- 
efficients to solve for the one real root of this fourth 


order equation. This real root is Vis the vertical compon- 


aa 
ent of the induced velocity through the rotor system for 


memward Climbing flight computations. Subroutine "VC" is a 
shortened version of Program "MHL". Program "MHL" was ob- 
tained from the Catalog of Contributed Programs HP-41C 
User's Library. [Ref. 5] When given a polynomial with real 
coefficients, Program "MHL" will use Maehly's Method, a 
modification of the well-known Newton's Method to find the 
meal roots of the equation. In its original form, Program 
"MHL" has 131 program steps. This program was modified 


for use as Subroutine "VC" with 105 program steps. 


Ze «6 QUATIONS 

See Subroutine "CF" for a complete description of the 
fourth order equation that Subroutine "VC" solves. 

Neither the equations used in the iterative root solving 


process are shown, ner is a flowchart for this process shown. 
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A complete description of this process is available from the 


HP-41C User's Library Catalog, Program Number 00660C. [Ref. 5] 


oe 2 GOWCHART 


none 


4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

The user may wonder why Subroutine "CF" and Subroutine 
"VC" were not combined into one subroutine. Subroutine "VC" 
has previously appeared in several different forms. Each 
form has solved the fourth order polynomial using a different 
technique. Subroutine "VC" currently exists in the shortest 
form found; both in number of program steps and program run- 
ning time. Perhaps the user of this subroutine is aware of 
an even shorter process and can thus modify this subroutine 
even farther. It is important to remember here that one of 
the primary reasons for the use of subroutines was for ease 


of orogram editing and modification. 


see Ee ROGRAMS & SUBROUTINES USED 


iT | VC " 


6. PROGRAM LISTINGS 


SUBROUTINE 
ALle*LEL “tC a iv.Fi 
B2 FIX 2 aa + 
Az SF ae 146 STO we 
Ba SE a1 1 een) are. 
as ce ozs iz RCL ae 
| i <j 1 a es 1 

ay STO oa it 


69 





io Fel = 
1e + 

ir sTO uaF 
18 CLA 

12 s70 wi 
ea 2H 

21i sToO = 
Seo FC?TC 81 
23 GTO &2 
al ee Se: 
25 sSsTa &¢ 
2eeLBlL 2 
2F RCL @2 
273 x*EQ “HE” 
23 M=47 
Sa GTO 5 
31 RCL = 
Sse REQ “BA” 
33 STO @&= 
34 FS? 8S 
35 GTO ue 
26 RCL 8? 
sr STa 2 
SS3eLBL 3 
33 FECL O23 
40 RCL Ge 
41 RCL IHD 
a 

$5 + 

44 ST- &5 
ea Doe BFS 
+56 GTO Bs 
47<eL6L 44 
428 RCL Be 
42 RCL 3 
Sa RCL AS 
=) 

=e 

S53 EWTERT 
S4 4A = 
a) 

Se RCL 82 
=) (ea 

S53 ABS 

S39 RCL &e 
BM x< 7? 
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T! 


61 GTQ He 
62eLBL &5 
63 CF an 
64+ 1 
65 ST+ ai 
6565 ST+ Fr 
65fr RCL @e 
eS STO 27 
69 GTO 4s 
TH*eLBL “AEB 
i RCL @&s6 
= sToa S 
ro ROW 
r4 REOL # 
ro «A 
Tr6oeLBL 46 
re RCL IND 
AS 
ro + 
ra? 
BH DSE Ws 
B81 Gro 8e 
S22 ROL 14 
o + 
S34 STO 2 
35 RTH 
36¢e@LS cates 
sr RCL 86 
23 STO 83 
223 RDN 
96 ROL & 
91 RCL xX 
a2 6 
QS¢LBL 8F 
a4 *« 
935 RCL se 
326 INT 
37 16 
95 - 
39 ROL IND 
a 
16pm « 
141 + 
1682 DOSE es 
143 GT aP 
144deLBL Hs 
145 END 





DATA 


lee 6PURPOSE 

This is a subroutine used by all main programs for data 
input, and depending upon the looping involved, some pro- 
grams will use this subroutine more than once. In some very 
few instances, not every item of data that the calculator 
orompts for is required for program execution. In these 
few instances, the EXAMPLE PROBLEMS AND USER INSTRUCTIONS 
sections are very explicit in the correct procedures to be 
taken for data input. The primary reason in the repetitive 
use of this subroutine is to save program steps and calcu- 
lator memory. Alpha characters and operators, the main in- 
gredient of this subroutine, are more costly in storage re- 
quirements (bytes) than the typical numerical operators 


that are used throughout these programs. [Rer. 4] 


ae 2 QUATIONS 


none 


ql 





3.  FLOWCHART 











is 
rotor blade 
rectangular ? 


Yes=l 






Promp for 
eae inout C 


PEOMME FOr and input R 


Execute Subroutine 
"ECHORD" 








"| SCeCute, SUbGOUEINe.| Di” U 


4, EXAMPLE PROBLEMS AND USER INSTRUCTIONS 
No equations are used, but this subroutine prompts for 


the following input where: 
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baspiay: Explanation: 


RS 


donc elewenec GOcror Dlade 15 Of rectangular planform 
1 [R/S] if the answer is yes 
asks for the blade chord (ft) 
O [R/S] if the answer is no 
aes rOmune FOOE Chora (ft) 
asnselOm the Elp chord (2) 
asks for the fraction of radius of the rectangular 
portion of the blade (decimal value) 
asks for the rotor disc radius (ft) 
asks for the total number of individual blades 
in the rotor system 
? asks for the average profile drag coefficient, Ca, 
asks for the rotational velocity, 2 (radians/sec) 
asks for the rotor system height above the 
Ground, nm (it) 
asks for the weight of the helicopter (ibs) 
=? asks for the density altitude, os Ca) 
MROGRAMS & SUBROUTINES USED 


1 parla’ 
"ECHORD" 
"DN 8 


rz) 








6. PROGRAM LISTINGS 


SUBROUTINE 


Hi oes “RAT 


ry 
HS “REC? 
as PROMPT 
Ast Sa? 
HS GTO 18 
Ho WE ECH 
ORD 
ae Po Ui 
WSe*LBL 18 


| 3 as i = - ee 


R=?" 


sTO i8 
SER "DH" 
END 


1 ies 

is “R=" 
id PROMPT 
2s oti. AS 
16 “b=?F" 
ir PROMPT 
1s S70 &eé 
te) “Cao; 
2“ PROMPT 
ao Se BT 
22 “RYS=7" 
264 PROMPT 
24 S70 88 
aoe SP 
26 PROMPT 
ei oD @F 
oo “W=7™ 
eae PTRonryT 
2h 

41 





CHANGE 


i. #PURPOSE 

This is a subroutine used by all main programs for expe- 
diting the change of input data. This subroutine is the 
last step in the main program listing before program termin- 
ation. This subroutine allows for as many as five of the 
input variables to be guickly changed before returning to 
the top of the main program listing and initiating a new 
program Operation. Upon examining the program listing for 
this subroutine, it will become quickly apparent to the user 
the ease of which this subroutine could be edited for other 
desired changes. Again, this is one of the purposes and 
Obvious advantages of using subroutines throughout these 


eeograms. 


ee) EQUATIONS 


none 


ve) 





Be YFLOWCHART 


Clear Flag 04 


Vesa Change No= 
Daca 7 


wes Pore lag No 


Set Flag 04 04 Set? 


meoet § LageZ? GO TO 
Picwrwect 2.4% 


DISPLAY: 
C 








C=? Execute 
SubGeGueine 
BCHORD" 


Store answer 
shigheae: ee 


Clear Flag 27 


* Returns to and reruns the main program with new data 
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fe See Le PROBLEMS AND USER INSTRUCTIONS 

No sample problem is given here because of the numerous 
examples that exist in the main programs. Note that when 
flag 27 is set, this automatically places the calculator 
into the [USER] mode. By pressing the key directly below 
the displayed variable in need of change, will next cause 
the calculator to prompt for the new data input. The new 
numeric value is then keyed in followed by [R/S]. The 
calculator will again prompt in the display for another 
change of data with: "CHANGE?". The user should remember 
that here as well as elsewhere in these programs, yes is l 
and no is 0. When all changes have been made and the an- 
swer no is received, the calculator will then return to the 
main program and begin execution with the new data. If on 
the initial time through, no changes are desired, and the 
answer no is given (notice from the flow chart that flag 04 


has not been set), the main orogram will terminate operation. 


pee ROGRAMS & SUBROUTINES USED 


i | EG 0 
See HORD” 


Ta 





PROGRAM LISTINGS 


SUBROUTINE 


Belek “Ce” 
We Cr 84 


M4 “CHANGE? 
PROMPT 


x=a? 
GTO oF 


ae em & 
mo sor cc) Ts 


SF a4 
SF 2, 
Ct RY & 

ij °° 
i1 PROMPT 
12ZeLBL A 
fs. “het? 
14 PROMPT 


fo GO Bs 
| i ad ae ad 
24 “c=?" 

21 PROMPT 
2ee_LRi as 
23 ST0 wa 
“4 G70 45 
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SSeLeBtL & 
26 "Rifv=7" 
er PROMFT 
22 5870 «we 
22 GTO 65 
3B¢LBL ie 
31 =?" 
22 PROMPT 
oo S710 He 
24 GTO @s 
2ueLBL 
45 se al 
ar PROMPT 
45 STO @s 
=3 GTO «85 
4H@eLEL E 
41 “h=7 


42 PROMPT 
43 STO 198 
44@LEBL a5 
45 CF 27 
46 GTO Gé 
47@LBL GF 
43 FS? @4 
439 GTO INDE 


ee 


34 END 





PROFILE POWER 


fm «60 URPOSE 
This subroutine computes the profile power, Pos required 
in terms of horsepower. Profile power is that power required 


to turn the rotor blades against their drag. 


2. EQUATIONS 


1 nels 3 
Pp = —e “Cc enoeA = 
Bee do aD T (14) 
ee) (15) 
= 2 
where: 
1 ls the profile power required to hover [ft-lb | 
oh nsec 
Pog is the profile power required in forward 
el 
flight aa 
sec 


oc is the average profile drag coefficient 

PWT Gmina abea On whe LoLonm discm@nmt) 

V TS menewrTp Velocizy (ft/sec) 

Ve is the forward velocity of the helicopter (ft/sec) 

fo) is the solidity of the rotor system 

Hw is the ratio of the rotor translational velocity 
EOutNC  VOlL@Gmeyn ot EnO wtp Glue to rotation 


2 

be. is ene density Of the ait wna 
£ 

Se 


~ 





3. FLOWCHART 












Recall Vin from 
An ISOM ee } 2 

o from R)1 

Cay EEOW eRe 


OP EEom Rs. 


while solving 


equation for Ey OY 


Store answer into R>5, 









Recall Py EFrom Ro, Recall V,_ from 2,; 
h a 


while solving 
equations for u, 
then for P_/P 









Recall Pon Prom l ay 


while solving 
equation for Es 


Display answer and 
SEOre Neto Roi 





EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


none 


PROGRAMS sae2SUBROUTINES USED 


“DO i | 


PROGRAM LISTINGS 


SUBROUTINE 


hn 
fs 

Ad 
mn 
~ 
ee obs 


a4 YTS 
a5 RCL 1i2 
we) ii 
cL ar 


" 
Ba 
pes 
ay 


aS ff & AF Dt ADE D-LG 
fa 
mi 
mi 


TPB es: 
3 ea 
=H 
GTO Ws 
Rib. 2.5 
ate 
$520 
HK 
i 
oe 
mio = t 
a 
BTuo wa 
+, BL &835 
RCL <i 
5 


fel fij ime | ij eS | es | ns | tJ fis fi ps ae hi Pil fi fa fis Pit prsel fpocede  fummale frome ffunrale frre focubs — fpamale, fpoceds pect ) hy) in, ml , 
oe CO) ae OS ON ON a OS) Ds Pe ee) 
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INDUCED POWER 


i PURPOSE 

This subroutine computes the induced power, Pir re- 
quired in terms of horsepower. This subroutine deals 
Only with hover and it takes into consideration both tip 
losses and ground effect. The induced power which produces 
a thrust equal to the weight (at hover) is equal to the pro- 
duct of the thrust and the inflow velocity. All of the main 
programs compute the inflow velocity peculiar to their flight 
conditions and will enter this subroutine at Label "PJ" or 


‘9 il P 


Ze EQUATIONS 








1.5 
P, = T+v = TYT/2p°A, ae ae (17) 
YV2p°A 
D 
Pp. 
2 eis (9) 
T —B 
eee. ‘e 
RATIO (12) 
10GE 
where: 


T ais the thrust which is equal to the weight, W (1b) 
v is the induced velocity (ft/sec) 


B is the tip loss factor 


eee 


© is the density of the air : 
fete 


= 


A is the disc area (£t7*) 


gre 





r 5 
P. is the induced power ft-lb 
= ' gec 


- 


fe “ 
P. 7 is the induced power with tip losses ft-lb 


soll _ sec 
ae is the induced power under out-of-ground- 
-OGE c 7 
effect conditions hee 
sec 
a 
G.E. 


RATIO ais the ground effect ratio 


ae «=F LOWCHART 






Recall AD from Eat 





while solving 
equation for Pj, (hp) 


Display answer 


Recalt (8 2rone., 
while solving 
Sseibekesleje cong 12 ie 


= 


L 


Display answer 


Store answer into ge 









6 


Recall h from R 


while solving 
Bes aay | 





Seomeranswet 1ncO R). 


Yes No 


Display "GE=0" | |Execute Subroutine "GE" ; 





Recall Pj, from ®,, Recall a Brom any. ang 


L 
solve for Pipttce) (Ap) 








Display answer 





Store answer into R21. 


EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


none 


PROGRAMS AND SUBROUTINES USED 


"9 Pp 1 wt 
LY Gr 9 
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6. PROGRAM LISTINGS 


SUBROUTINE 


* 


% 1% OF & Pa Al AD ~<A 
mae 


Oa 
ce enol ae 


*LBL "PJ" "PI<TL+G 
PROMPT 
VIEW 3 
STOP 


: AC AO nn ee ee ee me AN EAN RN ON Be BN ON DO) 
Poe nO md oe OD ed eo oo OT ed 


VIEW 


ome SS a SS GY | NK | SCN Ye 
4° 


" 
m0 
me) 
m4 
7 
aa 
MAPA hhh fe fal Gel Oa Od a Gd a fo hd 


ha fea fea fed 
iT Oh fe tel 
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CLIMB POWER 


1. PURPOSE 
This subroutine computes the climb power, P , required 
C 


in terms of horsepower. 
Zc EQUATIONS 


P =TeV (18) 


. peee lors 
Po is climb power a 
Secu 
T ais the thrust which is equal to the weight, W (lb) 


ue is the vertical velocity (ft/sec) 
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3. FLOWCHART 


Recall Ves chem X,, 


Yes <> No 


Recall W from Ri, while 
solving equation for P 


Display answer 







store answer into Roo 


4, EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


none 


See ROGRAMS & SUBROUTINES USED 


EPC 


87 


, 


oe 





PROGRAM LISTINGS 


SUBROUTINE 


B1ie*LEL "PC" 
ne “REL 2S 
4 “=i 
Gro be 
RL 186 
ie 

2 


My) 
fe 


seal seal soni alll seal coed ADEN KY DD 
(hdres iso co yo on t 

af 

Ad 

a) 

— 

Ti 

a4 
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PARAS Eis PONER 


if PURPOSE 

This subroutine computes the parasite power, a 
required in terms of horsepower. As the helicopter pro- 
ceeds from hover into forward flight, drag forces are 
Created on the various components of the helicopter due to 


pressure drag and skin friction. 


Ze) SQUATIONS 


= Soe Vo. tect.” 
where: 
| | [ft-lbe] 
P 1s the parasite voower | 
P L sec 
f. is the equivalent flat plate area for vertical 


mimi cent) 

= is the equivalent flat plate area for forward 
EL eiteest >) 

V is the vertical velocity (ft/sec) 


V- is the forward velocity (ft/sec) 


z 
ipesee- | 
————_———— 


o is the density of the all 
ce 


Che 





BS. FELOWCHAR? 


Recall Ve from 


From 
aleve 
FEO™M 
from 


while solving 
equation for ae (hp) 





Display answer 


Store answer into ae 


4. SXAMPLE PROBLEMS AND USER INSTRUCTIONS 


NONE 


ge © ROGRAMS & SUBROUTINES USED 


TY Ppp 2 
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PROGRAM LISTINGS 


SUBROUTINE 
H1ieLeBL PRP’ 
aS RCL 35 
As 3 

Ad YTH 

Wee mie! SS 
He :kK 

Hr RCL SS 
AS S 

Ba YTS 

14 FRCL 24 
11 * 

1= + 

|S ee as ieee es Os | 
14 + 

15 1186 
16 - 

ir “PPo* 
is PROMPT 
19 VIEW & 
-4 STOP 
“1 870 25 
22 END 








mee PURPOSE 
This subroutine computes the total vower, 


for the main rotor in terms of horsepower. 


Zo 6=SOUATIONS 


1S 
1s 
1s 
1s 


is 


TOTAL POWER 


total power required 
induced power required 
profile power required 
climbs power required 


parasite power required 


92 


iS 
m 


che 


, 


required 


(20) 





oe FLOWCHART 


Recall P; TLoOm 


from 


Po trem 
e 


While solving 
equation for Pin (hp) 





Deore answer eine 32). 
Display answer 


4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


NOne 


9- PROGRAMS & SUBROUTINES USED 


ve pT t 


ee 





ae 


PROGRAM LISTINGS 


SUBROUTINE 
AieLBL FT" 
A= FECL 18 
BS FRCL 2i 
Hed + 

05 FRCL 2s 
He + 

Mr REL 23 
WS + 

moa  Ss7G Sea 
16 “PT<cnRs= 
11 FROMPFT 
fo “Vib = 
i, Ss 4 Bp me 

i4+ END 
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FQUIVALENT AREA 


io PURPOSE 


This subroutine computes the equivalent area, Aas with 


tip losses of a tandem rotor helicopter in terms of square 


feet. 


2. EQUATIONS 


where: 





D 
FIGURE 3 
Planform View Of Overlapped Rotors [Ref. 3] 
Overlap = 1- da/D C25.) 
S. = d/R (22) 
y = cos *(1 = overlap) (23) 
a. = 2A, se 2A5 = 27R? (24) 


2) 





T 


sinycosy | 
A = 2A, + 2A, =A (, - : “) | (25) 
=f 


where: 
5 1s the shaft spacing ratio 
A is the total combined area of the two rotor 
Gases “(hts ) 
A is the equivalent area (f£t?*) 
Y is the wake skew angle (radians) 
R ais the radius of the rotor system (ft) 
D ais the diameter of the rotor system (ft) 


qd is the distance between the rotor shafts (ft) 
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3. FLOWCHART 










EEonipemron and Impuet di, 
Recall R from R,, while 
solving equation for Sp 


BEGG. DMlGO™= nay 


Recall B from R:i5 while 
solving equation for y 


SEOre y INtO Ri? 


Recall y from 
Reirom 
B from 


while solving 
equation for A. 





Store AL Teo R12 


4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


none 


Bee PROGRAMS & SUBROUTINES USED 


te AE ee 





6. PROGRAM LISTINGS 


SU3ROUTINE 


@1*LBL “AE” 
@2 "d=?" 

aS PROMPT 
a4 RCL OS 


ae mee 13 


a 
pk 


[i 


SIA D 
feonbe 
fit 


ff We ee 


SS RS Ms eo mS OS OS SO hw oe OW 
eo MN OS SE i OS OS es | OM OO 
) 
ae 
i 








TANDEM ROTOR INDUCED POWER 


im PURPOSE 
This subroutine computes the induced power required for 
a tandem rotor helicopter in terms of horsepower. This sub- 


routine will compute both the induced power at a hover, P. 


v 


and the induced power in forward flight, ie * 
ee) 6 SQUATIONS 
ee. . (26) 
= ¥ 2°9°A, 
K = 1.46 - 0.2538, (27) 
Pi, = Pi Ky (28) 
Ky = ] + d./2 (29°) 
Sp = a/R (22) 
aeeeety | saa (30) 


e ® e 2 
ZG A. Es 


v ce 2 + > 
a iL Sp Shee ele); (31) 


eee (+ see esin: y) 


where: 


fre 
ae is the induced power at a hover seaabe 


sec | 


od 


29 





se 


P . 1s the induced power in forward flight [re 
oe sec 

AL iemenemeeseer ve area (ft) 

A - is the area of the forward rotor disc (ft?) 

dG. is the induced power correction factor 

KY 1S thewsemwarcd Elvghnt comrection factor 

Sp 1s the rotor shaft spacing ratio 

T tSmenewtneuse. OF Ehe forward rotor which is 
usually equal to 4W, the weight (1b .) 

Ve is the forward velocity (ft/sec) 

K ius the ratio of the induced power at a hover for 
a single rotor helicopter as compared to a tandem 

dq is the distance between the rotor shafts (ft) 

R is the radius of the rotor system (ft) 

T is the thrust which is equal to the weight, W (l1b¢) 

Y is the wake skewing angle 

© is the density of the air ae 

Eten 
FLOWCHART 












Recall W from R 
A. from R 
CmeeeOm 
Sp from R 

while solving 
equation for Stig Wiehe), 


oOo fw NH O&O 


1 
| 
1 
9 


next page> 
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Store answer into. R 
Recall V. from Be 


16 
£ 5 
Yes ie> No 


Recall P. Ee TEON | Iso Recall WwW from ae 
*h o from Ss 

Execute 
Suproucine “AD” 





Recall Ve from R,. 


while solving 
equacion for. ¥ 


Store answer into se 


Recall Sp from R 
et OU 
Bee carom en 
1 
i 6 
while solving 
equations for Ge,k, 
and finally Pie (hp) 












Execute 
GYbBOuUEIne. “fu. * 


m=meers Subroutine “PI” at label “TJ” 


JEOVIL 





EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


none 


PROGRAMS & SUBROUTINES USED 
ANOS GU i 

Leap 

we ae Label rT" 

PROGRAM LISTINGS 


SUBROUTINE 


as 


ALeLaBL EL ae aoa STG 
” 26 SI 
B= CL 18 a7 ue fp 
Hs ofS SS RCL 
4 <} pp Sea = 
HS mis Le 4H «& 
As ee wid aj 1 
is 4= + 
i 42 RCL 
44 HTS 
45 1 
“- 
ES 47 Sak 
453 S570 
7 itd qa Bo 
aa = te = 


CDWt +e eI DNSUNSGE Me DAI D C 
7 
a | 


= 

S 
mao 

is 

ta 

iz 

1z 

id 

is 

16 

iv 1.46 se EOS 
is S32 RCL 
ee, a 
ea a ©ice Se wpe i 2. 
2) ip oes els 36 + 
22 %=a7? 2 
ec iGG gi 3 = 
24 RCL 18 aH 
25 275 oi 1 
25 « 51 + 
27 RCL it Bo REL 
De 6a 
23 SEG “aD 64 GTO 
me S5eL SL 
Si (te eds 6G REL 
32 ¥tTS 67 4¢LeBL 
3s 62 XE 
34 ATAN Se) Suu 
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APPENDIX D 


MAIN PROGRAMS 


This appendix consists of the main programs of this pro- 
gramming effort. The major ingredients of these programs are 
the subroutines found in the preceding two appendices. These 
main programs compute the various power requirements for 
mevering flight, forward (straight and level) flight, ver- 
Mmeeal flight, and forward climbing flight all for a single 
rotor helicopter; also tailrotor power requirements; auto- 
rotative flight; tandem rotor hovering and forward flight 
power requirements; and finally a short program to check 


several of the critical flight parameters. 
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HOVER 


i PURPOSE 
This main program computes the various power require- 
ments in terms of norsepower for hovering flight. The var- 


ious calculated power requirements are displayed as follows: 


Display: Mp lana tion : 

PI= induced power 

PI(TL)= induced power with tip losses 

PI (TL+GE) = induced power with tip losses plus ground 
effect 

PO= profile power 

PT (MR)= total power for the main rotor 


2. EQUATIONS 
No equations are found in the actual program itself. 
Consult the various subroutine listings for the equations 


used. 
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Bie 


FLOWCHART 


Clear all Storage Registers 








Alpha Store Hl into R,, 





|| Execute Subroutine "DATA" i 





i Execute Subroutine "AD" i 


[[ Bescite sibrontine "vee _T) 
[| escnte subroutine “ee 
[[ sscate Subroutine “ae 
[[ ieecnte Siroutine “om _ 








[ Execute Subroutine "SD" l 
: Bxecute Subroutine "PO" | 
| Execute Subroutine "PT" E 
] Execute Subroutine "CG" : 
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fee a7 AMPLE PROBLEMS AND USER INSTRUCTIONS 
Find the hover power requirements for an OH=-58C, Kiowa, 


under the following conditions: 


Ge OSG Lt 2 = 354 RPM > 37.068 rads/sec 
Re— 17.7 £t h = 25 ft 
b= 2 Dray. = OOO EE 
W = 3,000 lbs Ca. = .008 
Keystrokes: Display: 
[XEQ] [ALPHA] HOVER [ALPHA] RECS 


(Rectangular Blade? 1 is Yes, 0 is No) 


ie [R/S] @-2 
1.086 [R/S] R=? 
17.7 [R/S] b=? 

2 [R/S] Cdo=? 
-008 [R/S] RV=? 
37.068 [R/S] y=? 

Zoe R/S | W=? 
000 [R/S] D.A.=? 
ioo0 [R/S] PI= 
RAS | 140 .16 
RAs | Path) = 
[R/S] 145.87 
[R/S] PI (TL+GE) = 
ES | eo 21. 
7 S | PO= 
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te, S| 45.57 


[R/S] PT (MR) = 
[R/S] 184.77 
[R/S] CHANGE? 


(Change Data? 1 is Yes, 0 is No) 

1 [R/S] Cea > JR VW 

It is desired at this point to increase the weight of this 
helicopter to 3,200 lbs (maximum gross weight). To observe 
what effect this change will have on the hover power re- 
quirements, press the key on the calculator keyboard di- 
rectly beneath the variable in need of change. In this case 
the [LN] key is directly beneath the W in the display: 

[LN] W=? 

Be200 [R/S] CHANGE? 


(Any Further Changes? 1 is Yes, 0 is No) 


0 [R/S] PI= 

[R/S ] 154.41 
[R/S] Bene) = 
ER? S | 160.92 
[R/S] PI (TL+GE) = 
[R/S] 153.56 
[R/S] PO= 
[R/S] A555 7 
[R/S] PCR) = 
[R/S] sey) eas: 
[R/S] CHANGE? 


07 





Peel R/S | 0.00 


Now, using the same OH-58C at the new weight of 3,200 lbs 
find the hover power requirements with the rotor system 


merght above the ground, h, equal to 60 ft. 


Keystrokes: Display: 
[R/S] REC? 

te R/S | C=? 
ios6 [R/S] R=? 
ime? [R/S] b=? 

Bei kR/S | CdO=? 
mOOS [R/S] RV=? 
By. 060 [R/S] H=? 

po) [R/S] W=? 
e200 [R/S] D.A.=? 
1,000 [R/S] PI= 
[R/S] Pa 4aa4k 
[R/S] PI (TL) = 
PR? S | OOo 2 
[R/S] Gz=0 


(Ground effect is now equal to zero, the helicopter is 


hovering out of ground effect.) 


[R/S] PO= 
[R/S] NESS 
[R/S] PT (MR) = 
[R/S] 206.48 
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CHANGE ? 


[R/S] — 


PROGRAMS & SUBROUTINES USED 

Lo Dad "BCHORD 9 he OL bh t 
vec" ar 9 wep 
it eT it HOVER" or i] 


DATA" "pT typi 
tt DN wt " PO it 


PROGRAM LISTINGS 


PROGRAM 


ALe*LBL “HOY 


aS HEQ “DAT 


Ti 


BSeLBL "Hi" 
ar KEQ “AD 
eG 
en Bale gs 
mee Tage 
oes (Ean 
MEG "SD 
ee 
MEQ "PT 
aoe EG" 
END 


a ee ee NN 


Ts Ci fe hd fog he Se 


Ine), 








FORWARD FLIGHT 


i PURPOSE 

This main program computes the various power require- 
ments in terms of horsepower for forward (straight and 
faery gnt, If the™£orward flight velocity, V., is 
entered as zero, this program will also calculate the var- 


ious hover power requirements. The various calculated 


power requirements are displayed as follows: 


Display: Explanation: 

PI= induced power 

PEt TL) = induced power with tip losses 

PI (TL+GE) = induced power with tip losses plus ground 
effect 

POQ= profile power 

PP= parasite power 

Ef (MR) = total power for the main rotor 


pee GQUATIONS 


Up eee) = Ye Gene) © (1-68894) (32) 
1 
Ve*/v;" 2 
a - Trev, So) ee pe eee 2 ey 1 ei | 
] 
(33) 
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where: 


T ais the thrust which is equal to the weight, W (1b .) 


Ve is the forward velocity (ft/sec) 
Vs is the induced velocity at a hover (ft/sec) 


P; is the induced power required it=1bé| 
_ sec 


Vin is the thrust component of the induced velocity 


vector (£t/sec} 


No other equations are found in the actual program 


itself. 


Consult the various subroutine listings for the 


equations used. 


ae eeal 





5. 


FLOWCHART 


Clear all Storage 
Registers 


Alpha Store 
jg 2 19 eo Be 












Prompt for and 
convert V;, Zigey 
(lees). £o (EE/ Sec} 
Store into ise 


Prompt for and 





PApUt t . hie) Us 
Execute 
Subroutine "DATA" i 
Bxecute 
Subroutine "AD" 
Execute 
Subroutine “VT" 
mxecute 
Subroutine “CT” 
Execute 
Slimrouwcrne. Tih" 
| Execute | 
| SubDrOUEIOSe "VI" 











ReCallinav. rom on 
25 

Vo froma 
rf 29 

Via mom R 


‘ ; 10 
while solving 


equations for A 
and then P. (hp) 


Execute 
Subroutine “Pu” * 


Execute 
SuUbrouciIne Sp 

Execute 
Subroutine "PO" 

Execute 
Subroutine "pp" 

| Execute 
Subroutine “PT* 

Execute 
Sllproultane, CG. 


kanters Subroutine 
at label "PJ" 


ae 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the forward (straight and level) 


ments for an OH-6A, Cayuse, under the following conditions: 


Cm On S72 t 

Mee 13,165 ft 

b= 4 

W = 2,250 lbs 

h = 100 ft 
Keystrokes: 


[XEQ] [ALPHA] FORFLT [ALPHA] 


ZO [R/S | 


Be [R/S | 


(Rectangular Blade? 


ioe / S | 

me R/S | 
mos [R/S] 
4 [R/S] 

-009 [R/S] 


feet > [R/S] 


moe (R/S ] 
250 [R/S] 
500 [R/S] 
[R/S] 

[R/S] 

p27 Ss | 


1 is Yes, 


= 


c 
do 


Divan 


Ue 


te 


UES 


470 RPM > 49.215 rads/sec 


=00> 


= 500 ft 


90 kts 


5.0 ft? 


Display: 
FOR V=? 
F.P.A. (FF) =? 


REC? 


O is No) 


Dae & 
PI(TL)= 


24.28 


flight power require- 





[R/S ] 
[R/S ] 
in S | 
[R/S] 
[R/S ] 
[R/S] 
[R/S] 
[R/S] 
(Change Data? 


et R/S | 


lis Yes, 0 is No) 


gee, 
PT (MR) = 
109.94 


CHANGE? 


C eRVS Db RW 


It is desired at this point to decrease the rotor radius 


Mmeemet5.165 £t to 12.665 £t. 
change will have on the forward flight 
ments, press the key on the calculator 
beneath the variable in need of change. 


[LOG] key is directly beneath the R in 


[LOG ] 


e2zeo05 [R/S] 


(Any Further Changes? 


Deer S | 
(ey Sy) 
[R/S ] 
[R/S] 
Ges | 
ers | 
ORS 
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1 is Yes, 


To observe what effect this 


horsepower require- 

keyboard directly 
In this case the 

the display: 

R=? 


CHANGE ? 


QO is No) 








Bey Sil 
[R/S] 
[R/S] 
[R/S] 
ys | 


0 [R/S] 


Find the hovering flight power requirements for the same 
OH-6A under the original conditions with the only difference 


being v= = 0. 


Keystrokes: 
[R/S] 
OPtk/S | 
Bs S | 

He R/S | 
Aovenl/ S | 
ieretos [R/S] 
4 [R/S] 

sooo [R/S] 
fomezl5 [R/S] 
ee | R/S ) 
y250 [R/S] 
S00) [R/S | 
[R/S] 

[R/S] 

[R/S] 


i 


PPp= 
So 
PT (MR) = 
LOS .64 
CHANGE ? 


0.00 


Display: 
FOR V=? 
F.P.A. (FF) =? 


Ree? 








eR S | ee 


[R/S ] PO= 
[R/S] Boy 1k 
[R/S] Poe 
[R/S ] 0.00 
[R/S] PT (MR)= 
[R/S] hes say 
[R/S ] CHANGE? 
0 [R/S] 0.00 


note - When program "HOVER" is executed for this case, the 
Outputs are identical. Examination of equation 33 with 
Ve = 0, readily explains the reason for the identical re- 


Sues. 


pee Ee ROGRAMS & SUBROUTINES USED 


"AD" "FORFLT" [sbe 
eG t i] GE LD | if AU, uy 
eu hd oT | at bape. oh Gd a7 2 i 1 
iD DATA” "DO 0] yo " 
tt DN" Dp 
"ECHORD" "pT" 


6. PROGRAM LISTINGS 


PROGRAM 
@1*LEL “FOr 
mie ar i.e saa4 
B82 CLEG ote Ss 
as an a9 STO 25 
a4 asTa Fi 0 a ae cae = 
aS "FOR Y=? Sa ae 
11 PROMPT 
a6 PROMPT Meee ee eon aero 


21,6 








233 


mmm) im Cb Ol he Do em oh te al f 


fe fe Uy Gl el Co) Od Ol Od od ed ed Po Po fa fo fo fo fe 


42 


sts 


2 
STO 
ATz 


$+ be 





Jue 


VER eAL FitGnrT 


PU CeOsk 


This main program computes the various power require- 


ments in terms of horsepower for vertical flight (vertical 


ascent). If the vertical velocity, Vine is entered as zero, 


this program will also calculate the various hover power re- 


quirements. The various calculated power requirements are 


displayed as follows: 


Display: Bxplanation: 
PI= induced power 
PI (TL) = induced power with tip losses 
PI (TL+GE) = induced power with tip losses plus ground 
effect 
PO= profile power 
PP= parasite power 
PC= climb power 
PT (MR) = total power for the main rotor 
Zee EQUATIONS 
Vy (£t/sec) = Yv (ft/min) * 99 (34) 
va = 4 VV (Ee + oy 2 (25) 
Mf Z Ny : lp 
2 ie ae ee (36) 
e 


Ane 








a a - 
Aid dis 7 
Al Lim h z. 


a 
| ; 


where: 
T is the thrust which is equal to the weight, W (lb 
ae is the induced velocity due to pumping ina 
vertical climb (ft/sec) 


ve is the steady rate of climb velocity (ft/sec) 


eae is the induced velocity at a hover (ft/sec) 
ft-lb 
Ee is the induced power required to climb beatae 
=e sec 


No other equations are found in the actual program it- 
self. Consult the various subroutine listings for the 


equations used. 


he 
t= 
\O 


£ 


) 





3. FLOWCHART 


Recall). sso oe 
V 


VV. from R 
4 20 


Clear all Storage while solving 
Registers equation for v, 


and then Pie (hp) 


Alpha Store 
Vl into Bae Execute 
Subreurine — Py * 


ELOtipe 2Omr and 
convert V._ from 
Cee /main} ¥o 
(ft/sec) 
Store into or, 












Bxecute 
Subroutine "SD" 


Execute 
Subroucine “PO” 


Prompt for and 


iow. £.. LnNcoO RK 
dl ee = Execute 
Subroutine "PP" 
Execute 
Subroutine "DATA" 
Execute 
| SUbrOutiae: “PC: | 
Execute 
Subroutine "AD" 
Execute 
, i Subp couric es: [ 
Execute 
Subroutine” VT" 
Execute 
; SubrOucIzIe CG © [ 
Execute | 
Suprouwesne “Cr 
. Execute 
Subroutine "TL" 


Execute | 
Subroutine "VI" 


*enters Subroutine ~Pi” 
ae. rape. “Po 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the vertical flight power requirements for an SH-3H, 


Sea King, under the following flight conditions: 


C Sse ae Ca, = .0095 
15 ie el isa ws D.A. = 100 ft 
b= 5 Ee O10 ft/sec 
W = 18,000 lbs £., = 360 eee 
h = 100 £t Q = 203 RPM > 21.257 rads/sec 
Keystrokes: Display: 
[XEQ] [ALPHA] VERFLT [ALPHA] VERT V=? 
imnooo [R/S] F.P.A. (VF) =? 
Soc [R/S] Rae? 


(Rectangular Blade? 1is Yes, 0 is No) 


PR S | C=? 
ine | R/S | R=? 

Ep t R/S) =z 

5 [R/S] Cdo=? 
mowes [R/S] RV=? 
pies [R/S] H=? 
loo [R/S] W=? 
18,000 [R/S] D.A.=? 
roe [R/S | PI= 
[R/S] 919.60 
[R/S] PI(TL)= 
[R/S] 9397.05 


saa 





FR) S | GE=0 


[R/S] PO= 

£7 S| 344.97 
[R/S] PP= 
[R/S] 3.59 

[R/S ] PC= 

PRYS ) bas m45 
[R/S] PT (MR) = 
[R/S] yess. 84 
[R/S] CHANGE? 


(Change Data? 1 is Yes, 0 is No) 
PER, 5 | CRER VSD be a 
ft is desired at this point to taper the rotor blades. The 


new Main rotor blade dimensions are: 


S, =e eo 
C, =ieiOkc 6 
a= .90 


To observe what effect this change will have on the vertical 
flight power requirements, press the key on the calculator 
keyboard directly beneath the variable in need of change. 


In this case the [Z+] key is directly beneath the C in the 


display: 

[2+] REC? 
Oman S | C0O=? 
ese (R/S) Cl=? 
mo [R/S] a=? 


ee 





mo LR/S) 


CE=1.413 


(The new Equivalent Chord is 1.413 ft) 


[R/S] 


(Any Further Changes? 


oO R/S] 
[R/S] 
R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
Omer, S | 


CHANGE? 


Piss vec., O° as No) 


PI= 
gang: 595 
PI(TL)= 
939" 526 
GE=0 
PO= 


520 G0 


545.455 
PT (MR) = 
309.649 
CHANGE? 


0.000 


Find the hovering flight power requirements for the same 


SH=3H under the original 
being bes 


Keystrokes: 


[R/S] 
0 [R/S] 


conditions with the only difference 


Paspilay: 


VERT V=? 


Pole ae ve) =? 


Hy 8 





BoO {R/S ] REC? 


mL R/S] cz 

imo2 (R/S) =? 

oe (R/S) b=? 

pe iR/sS | CdO=? 
moOg5 [R/S] RV=? 
eme257 (R/S) H=? 

100 [R/S] W=? 
18,000 [R/S] ID) use ae 
100 [R/S] ee 

PR/ S| oO ea 2 
[R/S] PI (TL) = 
[R/S] 1186-250 
[YAS GE=0 

[R/S | PO= 

[R/S] 344.966 
[R/S] PP= 

PRS] 0.000 
[R/S] PT (MR) = 
c/s) ily sue oil) 
[R/S ] CHANGE? 

0 [R/S] 0.000 


note - When program "HOVER" is executed for this 
outputs are identical. Examination of equations 
with V, = 0, readily explains the reason for the 


results. 
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case, the 
55. and 236 


mOOn ee a 





PROGRAMS & SUBROUTINES USED 


TY AD sD | I GE TY te S D Ut] 
Gl a ‘Pe I iT TTL, 08 


ae Bry rol tea-aige |. Pe" VE ee 
iy] DATA a] @ iu a 2 6 fe 


tt DN " I] PP UY " VT ve 
"BCHORD" eva A 


PROGRAM LISTINGS 


PROGRAM 
BieLEL “YER 


Soe 23 RCL 28 
a2 CLRG ee 
a 25 STO a 
4 =} As Ta ol =, te = 

= ‘VERT w= a A 

= os a5 bee 
ag PROMPT eerie 
Ee 39 RCL aa 
Be 37 2 
Ao Sn 2s Sean Se 
i@ "F.P.A.< See 

le a Z4 RCL 14 
ii PROMPT ae 
i2 sToO 24 ae 
is XEQ “DAT =a 

aS 35 “EG “PJ: 
T4eLSBL ‘tt 35 “on «ste 
ee Ew alt 44 EQ “PFO 
oe. ke 41 “EQ "PP 
ee oe 42 HEQ “PC 
Gi) ee 435 MEQ "PT 
eee te 44 ¥EQ “CG 
21 2 
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FECAL 


+. PURPOSE 

This main program computes the various power require- 
ments in terms of horsepower for forward climbing flight. 
meoic vertical velocity, V, 15 entered as zero, this 
program will compute the various power requirements for for- 
ward (straight and level) flight. If the forward velocity, 
Ve, 1S entered as zero, this program will compute the var- 
10us power requirements for vertical flight. If both the 


vertical velocity, V and the forward velocity, Ver are 


we 
entered as zero, this program will compute the various 
power requirements for hovering flight. The various cal- 


culated power requirements are displayed as follows: 


Pasolay : Beep lameat On 

PI= induced power 

PI(TL)= induced power with tip losses 

PI (TL+GE) = induced power with tip losses plus ground 
effect 

PO= profile power 

PP= parasite power 

PC= climb power 

PT (MR) = total power for the main rotor 


Ze) EQUATIONS 


m(tneyseeme “e (ece) 100%?) se) 


E26 





jh ea ae S-5)) 


V 60 (34) 


v (ft/sec) - a Cie mim) 
wnere: 
T is the thrust which is equal to the weight, “ (1b ,) 


P. is the induced power — 
+ sec 


V, is the vertical velocity (ft/sec) 


Ve is the forward velocity (ft/sec) 


ae is the vertical component of the induced 


velocity (ft/sec) 


No other equations are found in the actual program it- 
self. Consult the various subroutine listings for the 


equations used. 


Py 





B. 


FLOWCHART 


Clear all Storage Registers 








AlplasSrone 1 “inte Ee 


Set Flag Ol 



















Wetme Ca ler Lrgitz 


VY = 
Forward Flight es 


Clear. ©! Lag, 0.) 
Display "BOTH" 


Prompt for and convert 
Mey SeOMe(La7min) to 
Bie7/sec),Store in &,, 





Prompt LOr and 


righ obi f., aH Oana, 


Yes 
Ol Set? 





Prompt for and convert 
Vee PacOme( cts) SEO rt sec) 
Sore wine 277 


Prompt for and 


sgh) bye Tigh le) Ie 


Hew page = 
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Clear Flag 01 
Execute 
Silomout tame: GE 
Execute 
SuUbEOUEIne VC" 
Execute 
SUpsOucIne DATA” 
Execute 
Subroutine "AD" 
Execute 
SUDrOUcIne “VT" 


Execute 
Susroutine Cr” 


Execute 
Subroutine. cu” 








Recalliv. from & 

al Paget § 

T 

Muy ez sroyrl USCS e 
wnile solving 
Squatron for P. (hp) 







p20 


Execute 
Subroutine "PJ"* 
Execute 
Subroutine "SD" 
Execute 
Subroutine "Po" 
Execute 
SubDrOUELnNe- PP’ 

: Execute 
Subroutine “Pc" 
naxecute 
SUbTOUEINe —~PT’ 


mxecute 
SuDbroutine, CG” 


*enters Subroutine "PI" 


at label "PJ" 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the forward climbing flight power requirements for a 


UH-60A, Blackhawk, under the following conditions: 


Cea. /3° £t 2 = 258 RPM + 27.02 rads/sec 
Pe e264055 ft Ca. = .008 
b= 4 es = 500 ft/sec 
W = 18,250 lbs ry (ON Sees 
h = 200 ft Ne = 60 kts 
Bea 9650) 6b f = 25-69-22 E* 
Keystrokes: Display: 
[XEQ] [ALPHA] FLIGHT [ALPHA] Vigil HON IGY 2 


(Execute Vertical Flight Only? 1 is Yes, 0 is No) 

eee S | FOR ONLY? 
(Execute Forward Flight Only? lis Yes, 0 is No) 
eR S | BOTH 

(The calculator is ready to do the combination of both, 


i.e. forward climbing flight) 


[R/S ] VERT V=? 

500 [R/S] F.P.A. (VF) =? 
308 [R/S] FOR V=? 

60 [R/S] FPA (FF) =? 
ge09 [R/S] =? 

26.835 [R/S] W=? 

18,250 [R/S] Diese 
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poo (R/S) 


(Rectangular Blade? 


mi R/S | 


i? Ss 6 [R/S] 


Bo. 035 


4 [R/S] 


mous [R/S] 
fyeo2 [R/S] 


Zoo [{R/S) 


Wee, 250 


eo0 {R/S ] 


7s | 
7s) 
[R/S] 
7s | 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
ERs | 
[R/S] 
ERS | 
[R/S] 


Oe S | 


lis Yes, 


eral 


REG? 


Zoe 2 

PT (MR) = 
12a 3 
CHANGE? 


0.00 





Find the vertical flight power requirements for the same 


UH-60A under the same conditions with the only exception 


being that the forward flight velocity, 


to zero. 
Keystrokes: 
[R/S] 
PR) S | 

500 [R/S] 
os {| R/S] 
2Geo35 [R/S] 
meee oO [R/S] 
650 [R/S] 
er S | 

meee [R/S] 
Beesc> [R/S] 
4 [R/S] 

aoe [R/S] 
mee 2 [R/S] 
200 [R/S] 
mae oO [R/S] 
650 [R/S] 
ys] 

bas | 

[R/S] 

[R/S] 

[R/S] 


32 


Ver is now equal 


Display: 
VERT ONLY? 
VERT V=? 
Bee CE eas 
R=? 

W=? 

Desks e 

REG? 


C=? 


1248.63 
PI (TL) = 


yes cour 010) 





[R/S] 300725 


[R/S] PP= 
[R/S] 6.36 

[R/S ] PC= 
[R/S] Dei a2 
[R/S] PT (MR) = 
[R/S] Goes 
[R/S] CHANGE? 
Gers S | 0.00 


note -—- When program "VERFLT” is executed for this case, the 
outputs are identical. Examination of subroutine "CF" and 
subroutine "VC" with Ve = 0, explains the reason for the 


identical results. 


Find the forward (straight and level) flight power require- 
ments for the same UH-60 under the original conditions with 
the only exception being that the vertical velocity, Vee, is 


Bewsequal to zero. 


Keystrokes: Display: 

[R/S ] VERT ONLY? 
OPER] S | FOR ONLY? 

1 [R/S] FOR V=? 

60 [R/S] serge Saray srl) 
Ze.69 [R/S] R=? 

oreo >5 [R/S] W=? 
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ie, 250 [R/S] D.A.= 


650 [R/S] PI= 
[R/S] 558.69 
[R/S] eae (ie) = 
PR? S ) 5 eal. 
[R/S ] GE=0 
[R/S] PO= 

7 S | 5 5 
[R/S] Pp= 
[R/S] 56.68 
[R/S] PT (MR) = 
[R/S] 251693 
[R/S ] CHANGE? 
0 [R/S] 0.00 


note - When program "FORFLT" is executed for this case, the 
Outputs are identical. Examination of subroutine "CF" and 
subroutine "VC" with V = 0, explains the reason for the 

V 


imeentical results. 


Find the hovering flight power requirements for the same 
UH-60 under the original conditions with the only exceptions 
being that both the vertical velocity, ee and the forward 


velocity, Vier are equal to zero. 


Keystrokes: Display: 


[R/S] VERT ONLY? 
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Of R/S) 

me tR/S) 
m/s | 

0 [R/S] 

308 [R/S] 

Be (R/S ] 
Ze,09 [R/S] 
Meeos> [R/S] 
moye250 [R/S] 
p50 [R/S] 
iiR/S | 

7s [R/S] 
26.835 [R/S] 
Sek) S | 

.008 [R/S] 
aoe [R/S] 
f00) [R/S] 
omes0 [R/S] 
po) 1 R/S | 
res | 

[R/S] 

[R73 } 

[R/S] 

[R/S] 

[R/S] 

[R/S] 


35 


HORMONE? 
BOTH 

VERT V=? 

Pee yA. (VE) =? 
BOR V=? 


ie eer) =e 


eo 
PI(TL)= 


pes S 


SOU s15 





[R/S ] 0.00 


[R/S ] PT (MR) = 
[R/S] 1,720.88 
[R/S] CHANGE? 
0 [R/S] 0.00 


note - When program "HOVER" is executed for this case, the 
Sueputs are identical. Examination of subroutine "CF" and 
Subroutine "VC" with Ve = 0, @ane ve = 0, explains the reason 


Bore the identical results. 


The user of program “FLIGHT” might wonder at this time 
as to why it is even necessary to have programs "HOVER", 
"FPFORFLT", and "VERFLT" when it has now become obvious that 
program "FLIGHT" will do all three cases. Three reasons 
exist to substantiate the existence of these other three 
Peegeants. First, program “FLIGHT” is a long program and, 
as such, requires 31 more program registers than any of the 
other three. Second, program "FLIGHT" has a Longer running 
time than any of the other three. Subroutine "VC" alone will 
take an average of 30 seconds of execution time. And third, 
program "FLIGHT" involes some double prompting for the same 
input. The reasons for this were explained in subroutines 
"DATA and "CF". This procedure optimizes the use of data 


registers, but also increases the execution time. 
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Therefore, if the user's only desire is to execute 
pure Mever, OF forward fiight, or vertical flight compu- 
tations, then one of these other programs should be used. 
Both calculator memory space and calculator execution time 


will be significantly reduced. 


eee | ROGRAMS & SUBROUTINES USED 


ee “ON” "PI" at label "PJ" iy 
iD ] CF tt "ECHORD as “Po” VIC t 
A ] ec" a) ge Gant" 9 Pp tt wa V es f tt 
A] eT D ] 9 GE TD tt PT tt tt VT 
pA TAT "pC w A ] Sp" 


6. PROGRAM LISTINGS 


PROGRAM 

A@1le*LBL “FLI S11 

GSH” oe aS 
HS CLEGG Sa ate wee Seems 
MS "Fis VF >=? 

Med ASTO si s+ PROMPT 
aS SP 25 S78 24 
45 “WERT oh “6 FS? 81 

= eFr GTO 86 
a, PROMPT ee ee es 
Ho «SA? alee FOR Yo=t 
H> GTO 44 

14 "FOR ONL She eee 7 

a - 31 1.68834 
iil PROMFT se ia 

fe Aas Seas Sy = 
£3 Ga ws pS a en ee = 
i+ CF Hi FrFo>= 3 as 

iS “BOTH 325 PROMPT 
16 PROMPT 36 STO 26 
1TreLBL we J3r@LeL 64 
1S “VERT ‘We 38 CF 61 

Fda 39 HE Le 
139 PROMPT 449 SE rn 
a4 64 41 sEQ DRT 


L337 





{reLBe 


— 
+o *« 
=68 S3A 
=) es 
So SEG 


st = | 
“op 
coh 
ele 
sale dense 
aa 
i 
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TAILROTOR 


fifa PURPOSE 

This main program computes the various tailrotor power 
requirements in terms of horsepower under all types of 
flight conditions. The tailrotor program must be executed 
immediately following the execution of any of the main 
Barer programs such as "HOVER", “FORFLT", "VERFLIT", or 
"FLIGHT". The tailrotor program recalls and uses much of 
the information that the previously executed program has put 
into storage. By doing this, the tailrotor program is 
shortened. There is no need for regurgitation of input data 
and calculations for the main rotor, which is the starting 
point for all tailrotor computations. The various calculated 


power requirements are displayed as follows: 


Display: Exp Lanat lon: 

PI= induced power for the tailrotor 

PI (TL) = induced power with tip losses for the tail- 
rotor 

PO= profile power for the tailrotor 

PT (TR)= total power for the tailrotor 

PT (MR) = total power for the main rotor 

PT (ACFT) = total power for the aircraft 


2. EQUATIONS 


Lo 





P Ver e 
Ter) A (38) 
ee 
2 ee 2 5 5 
2 | 
es = > 15 = 
(tr) (2p bee @ me) ®) 
(2 2) 
P 
h 
mr 
- : me) (40) 
(tr) 2A fe) 
Pl leash tr (mr) 
Fi. Ge i, (41) 
(tr) Cer) 
a , (2) 
P Sa S oA V i aol (42) 
O ese) ele D a 
(Gam) Care Cer) Mi 
Ger) see 
where: 
V5 1s the induced velocity of the tailrotor 
28 
(tr) tie tOorwarea tlic ((bi/ Sec) 
PB; is the induced power required by tailrotor 
ane tele te = |) Sao 
sec 
P 1s the profile power required by the tail- 
O 
BOtorm in. ftomwara LLight 
L sec 
Ca. 1s the average profile drag coefficient 
Cera) 
Ge tne veal rotor 
P is the total power required by the main rotor 
(mr) pba: 
in hover |—————= 
sec 
a Pome mciacearoa Of the tallrotor (f£t-) 
(tr) 
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V is the tip velocity of the tailrotor (ft/sec) 


T 

(en) 
ve 1s the tip velocity of the main rotor (ft/sec) 

(mr) 
V3 is the induced velocity of the tailrotor at 

Cex) 

a hover (ft/sec) 

P; is the induced power required by the tail- 

(tr) [ft-lbs 

rotor at a hover |———— 
sce 

ae is the required thrust for the tailrotor (Ib .) 

6 
Sere is the rotational velocity of the main rotor 

System (radians/sec) 
oes is the solidity of the tailrotor 
Lira) is the total power required by the main 
facsinee 
rotor '-———= 
see 
dL is the tail length, the distance from the center 
of the main rotor system to the center of the 
tailrotor system (ft) 
P. is the total power required by the main rotor 
: lEt-1b 
in forward flight ee 
sec 
Ve is the forward velocity of the helicopter (ft/sec) 
= 2 
9 is the density of the air aboees* 
12 
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om 


fPLOWCHART 





Rota Store EZ —e1n tO ee 


Recall 2(mr) from R 


i 08 
and Stone into A, 


3 


Recall V,A(mr) from ies 
aie Store "into Late 


mBxecute Subroutine "DATA" 
CO in plc Tamaa dca | 


MeGMpien sOr and 1ipUut 


A 
ver 1g we @ ES 









Recall Pm (mr) EOE as, 


Q(mr) from R,, 
while solving 
equation for ‘ae 


store Answer into 2&,, 
Bi Bxecute Subroutine AD" t 


([ckecate subroutine v=" ] 
[execute Subroutine "==" [| 
[execute subroutine “oo” | 
[execute subrontine | 


Next. page = 
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Yes 


Recall po from 
Peete) from 
Cer) 20m 
Ofmie )  Erem 

Pm (mr ) om 


Ve from 

Ties) eom 

while solving 
equation for 
Pi .(tr) (hp) 





Recall Ve from eee 


NO 


| Display Answer "PI=" 


Recall B from cnne 


while solving 


equation for P 





Display Answer 


APE (Th) it 


Me 


Store Answer into KO 


Recall Ve from 
Vip (mx ) com 

Vp (tr) irom 

A, (tr) TOM 

Oo EE Eom 

CHo from 







Gi eis) Om 
while solving 
equation for 
Pog (tt) (hp) 


ANAWAA AW 


w 





NM NN 
a wm 


~ OS KY HS & 
Oo sagem MM Ww 


Neseeoage ~~ 
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Recall T(tr) 


equa elon. © © 
Pin et? (hp) 


\ Execute Subroutine "PJ"* | 
ki Execute Subroutine "PO" | 


Erom nh. 


Vie) feom aa 
while solving 





next page > 





Display Answer "PO=" 
Store Answer into i 





Recall Pare from ee 






Pe Eom eho a 
while solving 


eabation for Pa(tr) (hp) 


Display Answer "PT(TR)=" 


Recall Pin (mr ) from ae 


and Display "PT (MR) =" 





Add P,, (mr) and Pyr(tr) 
and Display PLE{ACrT)=~" 





i Bxecute Subroutine "CG" | 


*enters Subroutine "PI" 
at Label "PJ" 


4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Pome the tailrotor power requirements for an SH-3H, Sea King, 
conducting a "LAMPS" mission while hovering above the surface 
of the ocean under the following flight conditions: 


We= 18,7650 lbs 
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Dea ot fe 
Dek — 0 Ft 
R = 56c0 LE 


Wain Rotor Data: 


aii. ROEOT Data - 


@r= 51.52 f€ 
pee of ft 
p= 5 
C, = .0095 
dy 
We 203 RPM 21.26 rads 


sec 


Keystrokes: 
[XEQ] [ALPHA] HOVER [ALPHA] 
i a/ S | 

1.52 [R/S] 
Bei R/S) 
Same 5 | 
meoos {R/S} 
oeeezo. (R/S) 
54 [R/S] 
Tepo50 [R/S] 
0 [R/S] 
[R/S] 

[R/S] 

[R/S] 

Pes | 

UAH 
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& 
R 
b 


4 
ey 


5 
=, 


He 


moe tt 


Ouere 


FO 205 


223 REM sic 


Display: 


REE 


Wee 6 
PI(TL)= 
249.70 
PI (TL+GE) = 


Pee 2.0 


rads 


sec. 


.| 





FR S | PO= 


[R/S] B46—12 
[R/S] PT (MR) = 
[R/S] eos 10 
[R/S] CHANGE? 
0 [R/S] 0.00 
[XEQ] [ALPHA] TR [ALPHA] TR DATA 


Subroutine "DATA" is about to be executed. This prompt 


tells the user that the tail rotor data should now be 


entered. 

[R/S ] REC? 

Re / S | C=? 

ao [R/S] R=? 

oe) (R/S) b=? 

5 [R/S] Cdo=2 
-0105 [R/S] RV=? 
Oe o [R/S] H=? 

54 [R/S] W=? 
18,650 [R/S] Da Ee 
0 [R/S] 105 (HPNEE Ee) 
36.6 [R/S] PI= 
[R/S] 103.08 
[R/S] jae (au) 
[R/S] OG 2> 
ERs | GE=0 
FR7S | PO= 
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[R/S] SOG 


[R/S] PT(TR)= 

[R/S] 136.35 

[R/S] PT (MR) = 

[R/S] 1563.02 

[R/S] Pace) = 
[R/S] 1699 .37 

[R/S] CHANGE? 
LR S | Caen Dek Ey 


ieeis desired at this point to increase the length of the 
tail, tee? from 36.6 to 41.6 feet. To observe what effect 
this change will have on the tailrotor power requirements 
flag 04 must be set to return to the main program where it 
then becomes possible to change a The flowchart for sub- 
routine "CG" depicts this process. In order to initiate 


eaeese procedure, pick a variable and input its original value. 


In this example, b is used: 


[vx] b=? 
Bem/ S | CHANGE? 

0 [R/S] meen) 
41.6 [R/S] PI= 

[R/S ] 85.07 
[R/S] PI(TL)= 
[R/S] 87.51 
[R/S] GE=0 

[R/S] EO 
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EE S | S020 


Pas | Pi CR = 
[R/S] ely ot 

[R/S] PT (MR)= 
[R/S] Sie s02 
[R/S] PEQAcry |= 
[R/S ] 1680.63 
[R/S] CHANGE? 

Caer / S | 0200 

The same SH-3H is now returning to ship with Ve = LOO cts, 
h = 500ft, and f, = 31.27 Peo nde tene= tay i rotor power 
required. 

Keystrokes: Display: 
[XEQ] [ALPHA] FORFLT [ALPHA] FOR V=? 

emt R/ S | ie Pe ee 2199 Oe 
cee z? [R/S] KEC? 

ete S | C=? 

ieee (R/S ] R=? 

Soa k/S ) b=? 

Eas © | Cd0O=? 

mooe> [R/S] RV=? 

yeas «R/S ) =? 

SoG [R/S] =? 

mero 50 [R/S] D.A.=? 

0 [R/S] PI= 
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[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

ERY S | 

rey S'] 

[R/S ] 
Omar, S | 
[XEQ] [ALPHA] TR [ALPHA] 
[R/S] 
eek /S | 

Boee SER S | 
See R/S | 
/ © | 
aos [R/S] 
mee 6 [R/S] 
SvO R/S | 
3,650 [R/S] 
500 [R/S] 
foo [R/S | 
[R/S] 

7S] 


442.73 


32555 
PT (MR) = 
LO 34 27 4: 
CHANGE? 
0200 

TR DATA 


REG 


DD Awss 


L (TAIL) =? 


Pi[= 





(R/S ] Be rea 3 


R77 S| POQ= 

[R/S] ee oe 
[R/S ] PU CER) = 
[R/S ] Slco6 
[R/S] PT (MR)= 
[R/S] Oe 471 
ERS | Slt C2 (Gl aan)) 
EK? > | OS 6527 
[R/S ] CHANGE? 

Ome R/S | 0200 

note - the CHANGE? process can be executed as many times as 


the user may desire, but the whole of program "TR" can only 
be executed once. By examining the flowchart for this pro- 
gram, it can be seen that several main rotor data elements 
are moved about in the storage registers. This is done to 
conserve program memory. Therefore, it becomes necessary 
to go back and execute one of the other main rotor programs 
before again attempting to execute program "TR" in its 


Seer ty . 


29. PROGRAMS & SUBROUTINES USED 


et) 1 " ECHORD iT ] Uy abn LY 
" Ec" uy CE #8 1 TR" 
ver” ve at Labbe | CP! a4 ao 1 
DATA | eG) a 08 Da 
“BN” 1 SD" 
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6. PROGRAM LISTINGS 


PROGRAM 


= 

A) 
fs, 
if 
5 


A1Ll?e?LEL j 
a) ae ea +6 RCL 12 


I 
bed 
nw 
ij 
—{ 
fem 
“, J 
* 


iT tel el 03 


=| 

Li 
ay 
J 
oe 
ay 


i i 
ts 
= 
or 
DQ ohare fa & 
MIO Ca oh On Be ad fi 
¥ 


ALA CA 


Ho PROMPT 
16 SER “BAT 


iguag 
2 STO ag 
3¢LBL “T2" 


tae 


“L< TAIL? < 
PROMPT a 


STO ee 
RCL 28 
2 -aid 

a 


Mi Tt i Oo onc 


RCL 23 RCL 86 
RCL 24 oR T 

- Ph ia 
STO i as 

Eile Gey St 


“Ef 
MEG 
“Ets 


ee eects 
PROMPE T 
VIEL 
ese) Bl a 
ae ae sy 


= 
rm 
© 

ea ted md md 


ie tele 


i 
my (1 
Ne ae On 
ul 
fic 
a 


GO SMS oth hoa 


CRT ie) ee) ae ON VN Bs a) ie YO 


ete ade 


a 
a 
{~ 
Pit me 0 
ye be 


ACU tad del Cel OC Qa a Gd Pn Ph A ee ee ee ke 
WOOP OGIO Pe ac tT 


RCL sil PROMPT 
me ce YIEW 
aaah 5. ro eee a 
Pa s4 S70 18 
wEm a Se ee 
4H HER Po 36 ROL 24 
41 GTO «a2 or 
42¢LBL oi HTS 
2 PCL 29 FOL =e 
Ee os a i Sa 


neal 





ey iy OD 


ee el en ed oe ne 
CR Oe ee 


en ee a 
ble) op ool l] Olebolbhahe faba ha ta te 
sfhd em Soo Op mh OA fe tl 


Ce el ed oe oe ee 


“) Ty ON fe is] 


eo ae 
O 
‘é 
b= 
ia) 


PROMPT 
VIEH 2 
STOP 

RCL 36 
“"PT<MR >= 


¢ 


PROMPT 
VIEW 
STOP 

+ 
ee ee ae 
PROMPT 
VIEW = 
STOP 

SER (i 
END 
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AUTOROTATION 
1. PURPOSE 
This main program computes several values for a single 

mecer helicopter in vertical and forward flight autorotation. 

The computed values are displayed as follows: 

Display: Explanation: 

VV= vertical velocity in a vertical autoro- 
tacuon (fe / mam) 

VF (MIN.R.O.D.)= LOmvarheosaltOrOtative tiigie velocity for 
minimum autorotative rate of descent (kts) 

VV (MIN.R.O.D.)= vertical autorotative velocity (ft/min) 
at the forward autorotative flight veloc- 
ity for minimum autorotative rate of 
descent 

a(HOR.GLIDE) = horizontal distance travelled on the 
ground at the forward autorotative flight 


velocity for minimum rate of descent (ft) 


225) -OUATIONS 


Wie ee (43) 


) 
‘ 


(44) 


(45) 
5 

Vie — (46) 

LY f 


5 3 





f = ——____—_ (0<F<1) Momentum. Theory 


7 (2F - /35) 
(4F - 3) 


Fh 
i 


aaa ROD) 0.00867 * R +« RPM 





P iy 
(hor glide)  tany 
V 
= arcsin — ~= 16.6° 
Ve 


where: 
C. is the average coefficient of lift 
Ca is the average coefficient of drag 


ee seca d numer COCtrTerent called the. dart 


(F>1) Glauert Equation 


(37) 


(23) 


Cag) 


(50) 


(3) 


C52) 


coefficient multiplier in drag coefficient terms 


K is a real number coefficient equal to Cy 
O 


V is the vertical velocity in a vertical autorota- 


ELOly Meme quale) 


A is the area of the rotor disc 
o@ is the solidity of the main rotor system 


9 is the density of the air 


h is the height of the rotor system above the 


SrqoOume WC fe} 
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Ve(min ROD) 


Vey(min ROD) 


noe glide) 


RPM 


"| 


th] 


is the forward autorotative flight 


velocity for minimum autorotative rate 


of descent 


(kts) 


is the vertical autorotative velocity 


(ft/min) at the forward autorotative 


flight velocity for minimum autorotative 


rate of descent 


Chie Lona 


is the horizontal Cdistance travelled on 


(ft) at the forward autoro- 


tative flight velocity for minimum rate 


of descent 


is the rotational velocity of the main rotor 


system in revolutions/minute 


is a non-dimensional 
is a non-dimensional 
is the weight of the 
is the radius of the 
is the descent angle 


rate (degrees) 


25 


coefficient 
Soctrrerent 
helicopter (lbs) 
rotor system (ft) 


for minimum descent 





Di. 


FLOW CHART 





Clear all Storage Registers 


Alpha Store Al into R,, 








||Execute Sul Be mEino DAT. i 


Pre MotiscrOr and input 
PEM nto ae 










Recall K, from R, 

Her JE yeloyal” ss 
Whieleso. Valin © 
equation for Cr 


Store Answer into Re 


Recall kK, 
RK, 


0 
07 


while solving _ 


Squgieton. Lor Cy 


Recall C,; from R,. 
i E<ecCubesouo routine "SD" I 


Solve equation for F 


Store Answer into eet 





ne <~eaoage, ~ 
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Yes No 


Display F Subtract 1.0 


(ston va Nc 


Recall F from R,, 
and solve Glauert 
Equation [Or £ 
















Recall F from R,, 
and solve Momentum 
MPeEWaerenm LOL f 





Recall p from R,, 
| Execute Subroutine "AD" | 


| Solve equation for 
V., (ft/min) | 
Display Answer "VV=" 


Recall 2 from R 
8 
Recomm ee 
while solving 
SGUuatiOn £02 


Ve(min Rob) ‘*ts) 












Display Answer 
"VF (MIN.R.O.D.}=" 


Solve equation for 
Vv (min ROD) (fe/mien) 


Rex page ‘> 


te 












Display Answer 
"VV(MIN.R.O.D.) =" 






Recall h from R,, 
while solving 
equaevon for 


d 
(Ticnmagi-vae)) 


Display Answer 
“GKi@E. GEEDE) =" 


a Execute Subroutine "CG" if 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


note - if the display "F=" should appear, an error has been 
made in either the design or the input data itself. This 
will only occur when F<0. Neither this program nor the 
theory used will be able to calculate results for this situa- 
ELOM . 


Bema UH-1H, Lroquois, with the following characteristics: 


W = 8,200 lbs NACA 0012 Main Rotor Blade: 
MeL, 500 Et R = 24 £t 

b= 2 C=. vow & 

bet. = 1,500 £t Cz = -0098 + -0120C,, ° 


She 





Q = 324 RPM > 33.927 radians/sec 
find the rate of descent ina vertical autorotation, Sa the 
forward flight autorotative velocity for minimum rate of de- 
scent, Vea (aie ROD)! the vertical velocity for the minimum 
rate of descent, SG Gta ROD)? and the horizontal glide dis- 


tance travelled during the autorotation, d F 
(hor glide) 


Keystrokes: Display: 

[XEQ] [ALPHA] AUTO [ALPHA] REC? 

R/S | C=? 

ies [R/S] R=? 

24 [R/S] b=? 

Zee S | CdO=? 

megs [R/S] RV=? 

S59927 [R/S] H=? 

i500 [R/S] =e 

9200 [R/S] Dien 

mood [R/S] cen—2 

.012 [R/S] VV= 

PRY S| 2885.69 

[R/S] Vie (Mine BeOeD. )— 
[R/S] 67.92 

[R/S] VV(MIN.R.O.D.)= 
[R/S] 2043.85 

[R/S] d(HOR.GLIDE) = 
[R/S] 5031.70 

[R/S] CHANGE? 


Bey, 





It is now desired to increase the weight from 8,200 to 


00 lbs: 
i R/S | 
[LN] 

27500 [R/S] 
Oe R/S | 
ies | 

[R/S] 

ERS ] 

[R/S] 

BRS | 

[R/S] 

[R/S] 

[R/S] 


It is now desired to decrease the rotor rotational velocity 


meen 33.927 to 32.88 radians/second. 


i/ 5 | 

ey x) 

32.88 [R/S] 
Cars | 
ERY S | 

[R/S] 

es | 

[R/S] 

[R/S] 

[R/S] 
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CHANGE? 

VV=? 

S106.202 
VF(MIN.R.O.D.)= 
67.42 
VV(MIN.R.O.D.)= 
2043.95 

d (HOR.GLIDE) = 
OSes 0 


CHANGE? 


This is 314 REM. 


C RV b R W 
RV=? 

CHANGE? 

VV= 

B06. 02 

VF (MIN.R.O.D.)= 
65.34 
VV(MIN.R.O.D.)= 
TSO 1g 


d(HOR.GLIDE) = 





[R/S] S01. 70 

[R/S ] CHANGE? 

tS | 0.00 

note - A reduced rate of descent during a forward flight 
autorotation can be achieved by attaining as low a rotor 
speed as possible without exceeding published limits (stall). 
Below a certain rotational velocity, rate of descent in- 
creases again, and the higher the weight, the higher the 

RPM at which this reversal occurs. [Ref. 6] Also, the 
forward speed for minimum descent rate is not the same 
forward speed for maximum glide distance. The forward speed 
for maximum glide distance will be higher than the forward 
speed for minimum descent rate. This "stretching the glide" 
not only results in a longer horizontal glide distance, but 


also results in an increased rate of descent. [Ref. 6] 


5; PROGRAMS & SUBROUTINES USED 


tt AUTO i | te DN ft 

18 Api "BCHORD tf 
LF | ec" tt Sip 

8 PATA" 


6. PROGRAM LISTINGS 


PROGRAM 

AieLBL "AL aan ye ea 
0: Be Lota? 
a3 "Ai" a2 sto a2 
Gal sysgal eal G@SeLel “Hi 
AS KEG “DAT ig REL ee 


IGE 





TO OO OD ee ef fe ff Gy al ted Cad ed Ce GA a DP 


oe A OE is eS Ne OO RS PS NY Sy A NN NO OY OR) Re SD 
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[- 
b+ 
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aR ay 


1 1 OE A a ed a aT Ty aT 


WO 09 O39 no 
Pew IO holier Hod Wo OU oe pe So oo mo on ge 
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WD WO ude 
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ry * 
rs 
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mr oc 


ts We | I i = 
LB 27°" 


“MVEMIN. 
D. >=" 
PROMPT 


RL 
oe et 


AY TE 


LHSe¢LeBL He 
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TANDEM 


i PURPOSE 

This main program computes the various power require- 
in terms of horsepower for a tandem rotor aircraft in either 
hovering flight or forward (straight and level) flight. The 


various calculated power requirements are displayed as 


follows: 
Display: Eao banat Lon: 
PI (TL) = induced power with tip losses 
PTI (TL+GE) = induced power with tip losses plus ground 
effect 
PO= profile power for a single rotor system 
PO (TDM) = profile power for the tandem rotor system 
PT (TDM) = total power for the tandem rotor system 
ee SOUATIONS 
ee ea. Peake P. (20) 


Pp, is the total power required 


Ps 1s the induced power required 
Ps is the profile power required 
a is the parasite power required 


No other equations are found in the program. Consult 


the subroutine listings for the various equations used. 
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a 


FLOWCHART 





Clear all Storage Registers 





Ripne@ocomue Tl PIntOgk a, 


[Execute Subroutine “oxa™ [ 
[srecste subroutine ve | 
[[ siecute Subroutine >" 1 
[[ recute Subroutine “or” 


Divide Cy by 2 and 
SEOre answer 12ntco RR, , 


[: Execute Subroutine "TL" E 
[ Execute Subroutine "AE" 












Hovering 
Pelt. 





Prompt for and convert 
)Ve heome (cts) tO" (LE/7 soc) 
| Seco 721 cO 5. 






PLOmpe FOr ana 


Be Te 
SAD UT i ¢ into &,, 





Nee a page “= 
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[[sxecate Subroutine “Pie"] 
[axecute Subroutine "a0" [ 
[Execute Subroutine "so" [ 
[Execute subroutine "ro" [ 


Multiply P. by 2 and 
Display Answer "PO(TDM) " 


Store answer into nae 
Recall Ve Erom ae | 


Yes No 







| |Execute Subroutine "PP" | 


Recall P_ from Eee 
Pe UE romen 

While solving 

equation for P,, (hp) 













aS 


Display Answer "PT(TDM) " 


i Beecite: subroutine “CG” | 


aS. 


| 





See SAMPLE PROBLEMS AND USER INSTRUCTIONS 


Find the hover power requirements for a CH-47D, Chinook, 


under the following conditions: 


225eneoM = 23556 rads/sec 


= .008 


C= 2.667 ft Q= 
Be 30.0 £t @ 
Oo 
pa 3 n= 
W = 45,000 lbs Dias 
Ge SO.9R7 ft 
Keystrokes: 


[XEQ] [ALPHA] TANDEM [ALPHA] 
(Rectangular Blade? 1 is Yes, 
i {R8/S] 

aicod 9 (R/S] 

Om / S | 

Sees S | 

moe [R/S] 

geepo (R/S) 

Soa R/S] 

fo7000 [R/S] 

1,500 [R/S] 

wel? [R/S] 

(Execute Hovering Flight Only? 
1 [R/S] 

RES | 

7 S 
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0 


Display: 
REG? 


So ho) 


HOVER? 

1 is Yes, 0 is No) 
PI(TL)= 
4,263.48 


PI (TL+GE) = 





R/S | Siecle Bey 


[R/S] PO= 
[R/S] 350.46 
[R/S] PO(TDM) = 
ERS } 700 .93 
[R/S] PT (TDM) = 
[R/S] 4,658.47 
[R/S ] CHANGE? 


(Change Data? lis Yes, 0 is No) 

et? © | C RV b R W 

It is desired at this point to increase the number of rotor 
blades per rotor system from 3 to 4. To observe what effect 
this change will have on the hover power requirements, press 
the key on the calculator keyboard directly beneath the var- 
iable in need of change. In this case the [Vx] key is di- 
rectly beneath the b in the display: 

[Vx] b=? 

4 [R/S] CHANGE? 

(Any Further Changes? lis Yes, 0 is No) 

Ome ER/ S | d=? 

Gremcarculator has returned to the top of the main program 
and now presents the opportunity to change the distance be- 
tween the rotor shafts, d. In this example, d remains the 
same: 


Sool? [R/S] HOVER? 


EG 





: 


L [R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
0 [R/S] 


PI(TL)= 
4,227.80 
PI (TL+GE) = 
3,924.43 
PO= 
467.28 
PO(TDM) = 
934.57 
PT (TDM) = 
4,859.00 
CHANGE? 


0.00 


Find the forward flight (straight and level) power require- 


ments for a CH-46E, 
Cena tions: 


C= i 5625.5 


eee 25.5 ft 
b = 3 
W = 22,000 lbs 
Ge 337,33 526 
h = 2,000 ft 
Keystrokes: 
[R/S] 
PL R/S | 


P5625 [R/S] 
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Sea Knight, under the following flight 


264 RPM > 27.64 rads/sec 


Display: 
REC 2 
C=? 


=e 





2S) yee sy b=? 
3 [R/S] Cdo=? 

.009 [R/S] RV=? 

27.64 [R/S] H=? 

2,000 [R/S] = 

22,000 [R/S] BD) ys ies 

a7eo0 [R/S] d=? 

Bees [R/S] HOVER? 

0 [R/S] FOR V=? 

100 [R/S] F.P.A. (FF) =? 
44.3 [R/S] PI(TL)= 
[R/S] Sy essen)! 
[R/S] GE=0 

[R/S] PO= 

ERTS | 238.65 

[R/S ] PO(TDM)= 
[R/S] ATS 

[R/S ] PP= 

[R/S] 434.78 

[R/S ] PT (TDM) = 
[RS | 4,147.22 
[R/S ] CHANGE? 
ie S | C RV b R W 


Memes Cesirea at this point to decrease the forward flight 


velocity, Ver from 100 to 50 knots. To observe what effect 


Vo" 





this change will have on the forward flight power require- 
ments flag 04 must be set to return to the main program 
where it then becomes possible to change V_. The flow- 
Chart for subroutine "CG" depicts this process. In order 


to initiate this procedure, pick a variable and input its 


original value. In this example, W is used: 
[LN] Wa? 
22,000 [R/S] CHANGE? 
0 [R/S] Stan 
eS33 [R/S] HOVER? 

0 [R/S] FOR V=? 
SO ER, S | Fab eae (Er) 2 
44,3 [R/S] PI (TL) = 
[7S } BO seize 
[R/S] GE=0 

[R/S ] PO= 

[R/S ] 203.54 
[R/S] PO (TDM) = 
[R/S ] 407.08 
[R/S ] PPp= 

[R/S ] 5435 
eS | PT (TDM) = 
27S | 3,546.66 
[R/S ] CHANGE? 
0 [R/S] 0.00 
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PROGRAMS & 


te AD LI] 
Jie aed 
Uy CG 1 
1 CT w 
e DATA I 
te DN tt 


SUBROUTINES USED 

"ECHORD" "op" 
"GE" " TANDEM" 
VE ome teseabe 1 Ty" Wee 

S31 ald nye 

"DO f 

2 | Re. J 


PROGRAM LISTINGS 


PROGRAM 
ALeLEL “THR ePTeLBL we 
BEM” ieee eee Ly 
a2 CLRG ; 
See ie 22 “EO “AD 
H4 ASTO 3 3a “ER ch 
@5 XE “DAT 31 KEG “PO 
A" 32 2 
@6e*LBL "“T1"” ei oe 
ee a a a Oi 34 “PO<TDM> 
= TE fn Aad" aoe 
O@2 SEG “CT” 35 PROMPT 
l4ie 36 VIEW X 
if 37 STOP 
eae Some 38 8To 21 
13 “EQ “TL” 32 RCL 25 
i¢d “ER AE" 4a “=a? 
15 HOVER?" 41 GTO o82 
16 PRONE T d2 “EQ “PP 
LF 420% 43¢LBL aa 
15 GTO Be 44 RCL 21 
if "FOR V=7 45 + 
46 RCL 18 
29 PROMPT 47 + 
21 1.658824 453 "“PT<TIOM:> 
esl + =" 
23 S10 <5 439 PROMPT 
24 "“FJPLA.< Sa VIEW & 
FR>=?" Si sTope 
2S PROMPT St “Ema co" 
26 S70 26 Ss END 


rst 





CHECKS 
1. PURPOSE 
This program performs a short series of checks on 
several important parameters. It 1s executed immediately 
following the execution of one of the main programs. This 
program recalls and uses data that the previously executed 
program has put into storage. The various parameters that 


are checked are displayed as follows: 


Display : Eo LamatloOn: 

SOLID= the solidity of the rotor system 

U= the advance ratio 

M(TIP)= the Mach Number at the tip of the advancing 


rotor blade 


D.L.= the disc loading of the rotor system 


2. EQUATIONS 


a= V¥*Ga°R°T (OR) (53) 
me K) = PX°C) + 273416 (54) 
Geni = £(°K)) +°0.5555 (55) 
V-+V 
ee 5 ae 
Min a (56) 
We 
1 Se (57) 
Vip 
W 
DISC LOADING = ae (53) 
D 


HL 





where: 
T(°C) ais the temperature in degrees centigrade 
T(°K) ais the temperature in degrees kelvin 
T(°R) is the temperature in degrees rankine 


g is vale (Gravy catvenaleconstant | 32.174 Ibp,-ft 
Ib --sec™ 
An is the rotor disc area GEES) 


M is the Mach Number at the tip of the advancing 
rotor blade 

Ve is the forward velocity of the helicopter (ft/sec) 

V is the tip speed of the rotor blade (ft/sec) 

Reel S tne Gas scomstant for air (53.3 ft-lbd¢ 

1b..-°R 

W is the weight (lbs) 

u is the advance ratio 


arisethne cOMme ByeuoClEy el Lt/sec) 


y is the ratio of specific heats (1.4 for air) 


2 





aA 


FLOWCHART 





Reealbil #o Exom R 


° 1 
and Display Answe 
"SOLID=" 












Recall V 

Vp from R,, 
while solving 
equation for u 


Display Answer 
1 U= mt 


Recall Wes £roOm Pie 
Vin from re 


Peonoes Lor (7c) 


Solve equations 
for a then Mn | 


Display Answer 
EM Chie) 


Recall W from Roe 
- from Ri>2 


while solving 
=o (8s 12 1.0}9) 4 15 eng 
Disc Loading 


Display Answer 
a lage 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 


Peeecuce program FPORFLT” for the CH-53E under the following 


@meracteristics and flight conditions: 


Grv= 2.44 ft 2 = 179 RPM + 18.743 rads/sec 

po So 5 fo ve = 140 kts 

De 7 £. = 63.57 fren 

h = 1000 ft Ca. = .009 

W = 70,000 lbs Dea. = 1000 te 
Keystrokes: Display: 
[XEQ] [ALPHA] FORFLT [ALPHA] FOR V=? 
140 [R/S] F.P.A.(PF)=? 
peo] [R/S] REC? 
eR S | C=? 
2.44 [R/S] R=? 
coe) | R/S | b=? 
7 [R/S] CdO=? 
-009 [B/S] RV=? 
Eoeras ([R/S} H=? 
HeGo [R/S] =? 
oy 000 [R/S] D.A.=? 
Ooo [R/S] PI= 
[R/S } eG 202 
[R/S] PI(TL)= 
Uva 699 210 
[R/S } GE=0 


ie 


[R/S] PO= 


[R/S ] 1852.87 
[R/S] PP= 

[R/S] 1763.38 
[R/S] PT (MR) = 
[R/S] Boo 
[R/S] CHANGE? 
OF [R/S] 0.00 


Now, execute program "CHECKS" in order to make a quick 


Shecs On o, Uu, Mrs and Disc Loading. The temperature is 


i> C 

Keystrokes: BPispilay - 

[XEQ] [ALPHA] CHECKS [ALPHA] SOLID=0 .1376 
[R/S] U=0 .3194 
[R/S] T=? 

no (R/S | M(TIP)=0.8783 
[R/S] Del. — eee 


It is important to note here that the blade loading is above 
10 lbs/ft*. This generates high induced velocities, which 
in turn can make operations in unimproved sites hazardous 
due to flying debris. Also, it becomes increasingly diffi- 
cult to obtain safe autorotational characteristics at these 
higher disc loadings. [Ref. 7] 

The tip Mach Number is above 0.85. This means that the ad- 
vancing rotor blade is entering the transonic flow region 


and shock wave formation will lead to wave drag. 
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Blade stall effects on the retreating rotor blade have 
started prior to this. Therefore the actual horsepower re- 
quired in forward flight will be somewhat higher due to the 


effects of compressibility and blade stall. [Ref. 3] 


5. PROGRAMS & SUBROUTINES USED 


Berens 


6. PROGRAM LISTINGS 


PROGRAM 
Pa 273.16 

A@1¢+LBL “CHE =n 
bese Se (5555 

a2 FIX 4 emai 

@S FRCL 17 =a a 
a4 “SOLID= ae pee nae 
a5 ARCL ¥ = 

Ae AVIEW a ee 

a? sTor ae ’ = 
a3 RCL 25 ao eee 
es 29 ARCL x 
es SQ AVIEW 

12 ARCL * So eo Goa 

iz OVlEL ase FRCL 18 
i4 STOP a5 pages 
{5 RCL 25 ena 

ig RCL 12 eS oe ee 
iz + 26 ARCL 
ee ee 37 AVIEW 

19 PROMPT Pin 


ee 
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